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spools  and  one  core  spool,  for  example).  The  program,  written  in 
Fortran  IV  language,  uses  performance  maps  (in  Block  Data  format) 
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initial  or  guessed  values 

number  of  loops  thru  engine  before  quitting 

number  of  loops  thru  engine 

specific  fuel  consumption  (lbm/lbf/hr) 
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CVDNGZ 


CVMNOZ 


DELFG ,  BELFN, 
DELSFC 


DPAFDS 


DPCODS 


flight  Mach  number 

Mach  number  at  low  pressure  turbine  exit 
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thrust,  and  specific  fuel  consumption,  respectively. 
Usually  input  as  1.0 

afteiburner  design  pressure  drop,  AP/P 

combustor  design  pressure  drop,  AP/P 


ix 


DTCODS 

ETAA 

ETABDS 

ETACDS 

ETAD 

ETAFDS 
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ETHPDS 
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IAFTBN 
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IDCD 
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IDUMP 
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LMCD 
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MODE 

NOZFLT 

PCBLC 
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design  engine;  zeroed  automatically 

index  for  dumping  error  matrix 

index  for  mixed  flow  or  non-mixed  flow  turbofans 

main  nozzie  will  be  convergent-divergent  when  1MCD=1 

index  for  maximum  number  of  iterations 

independent  variable  designator  for  engine  operation 

inaex  for  floating  main  or  duct  nozzle 

%  of  total  high-pressure  compressor  airflow  that  is  bled 

%  of  high-pressure  compressor  bleed  flow  that  is  bled 
into  duct 


PCBLDUC 
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PCBLDUI 

PCBLF 

PCBLHPC 

PCBLHPI 

PCBLI 

PCBLIPC 

PCBLIPI 

PCBLLPC 

PC3LLPI 

PCBLOBC 

PCBLOBI 

PCNC 

PCNCDS 

PCNF 

PCNFDS 

PCNI 

PCNIDS 

PRCDS 

PRFDS 

PRIDS 

PS55 

P2 


X  of  Intermediate  compressor  bleed  flow  that  is 
bled  into  duct 

X  of  total  fan.  airflow  that  is  bled  (overboard) 

%  of  high-pressure  compressor  bleed  flow  that  is 
bled  to  the  high-pressure  turbine 

%  of  intermediate  compressor  bleed  flow  that  is  bled 
to  the  high  pressure  turbine 

%  of  total  intermediate  compressor  airflow  that  is 
bled 

%  of  high-pressure  compressor  bleed  flow  that  is  ' 
bled  to  the  intermediate  turbine 

%  of  intermediate  compressor  bleed  flow  that  is 
bled  to  the  intermediate  turbine 

%  of  high-pressure  compressor  bleed  flow  that  is 
bled  to  the  low-pressure  turbine 

%  of  intermediate  compressor  bleed  flow  that  is 
bled  to  the  low-pressure  turbine 

X  of  high  pressure  compressor  bleed  flow  that  is 
bled  overboard 

X  of  intermediate  compressor  bleed  flow  that  is 
bled  overboard 

high-pressure  compressor  shaft  speed  as  a  percent 
design  high-pressure  compressor  shaft  speed  as  a  percent 
fan  shaft  speed  as  a  percent 
design  fan  shaft  speed  as  a  percent 
intermediate  compressor  shaft  speed  as  a  percent 
design  intermediate  compressor  shaft  speed  as  a  percent 
high-pressure  compressor  pressure  ratio  at  design 
fan  pressure  ratio  at  design 

intermediate  compressor  pressure  ratio  at  design 
static  pressure  at  low-pressure  turbine  exit  (atm) 
fan  face  total  pressure,  for  nonstandard  days  (ntra) 
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In  addition  to  all  input  symbols,  the  following  are  output: 


A 

AM 

BLDU 

BLDUC 

BLDUI 

BLC 

BLF 

BLHP 

3LHPC 

BLHPI 

BLI 

BLIP 

BLIPC 

BLIPI 

BLLP 

BLLPC 

BLLP  I 

BLOB 

BLOBC 

BLOB  I 


o 

areas  (ft  ) 

Mach  numbers 

total  bleed  flow  into  duct  (lbm/sec) 

bleed  flow  into  duct  from  high-pressure  compressor 
(lbm/sec) 

bleed  flow  into  duct  from  intermediate  compressor 
(lbm/sec) 

high-pressure,  compressor  bleed  flow  (lbm/sec) 

fan  bleed  flow,  overboard  (lbm/sec) 

total  bleed  flow  to  high-pressure  turbine  (lbm/sec) 

high-pressure  turbine  cooling  bleed  from  high- 
pressure  compressor  (lbm/sec) 

high-pressure  turbine  cooling  bleed  from  intermediate 
compressor  (lbm/sec) 

intermediate  compressor  bleed  blow  (lbm/sec) 

total  bleed  flow  to  intermediate  turbine  (lbm/sec) 

intermediate  turbine  cooling  bleed  from  high- 
pressure  compressor  (lbm/sec) 

intermediate  turbine  cooling  blAed  from  intermediate 
compressor  (lbm/sec) 

total  bleed  flow  to  low-pressure  turbine  (lbm/sec) 

low-pressure  turbine  coding  bleed  from  high- 
pressure  compressor  (lbm/sec) 

low-pressure  turbine  cooling  bleed  from  intermediate 
compressor  (lbm/sec) 

total  overboard  bleed  flow  (lb*n/sec) 

overboard  bleed  flow  from  high-pressure  compressor 
(lbm/sec) 

overboard  bleed  flow  from  intermediate  compressor 
(lbm/sec) 


BYPASS 


bypass  ratio,  duct  airflow  divided  by  intermediate 
compressor  airflow 


CNC 

CNF 

CNHP 

CNHPCF 

CNI 

CNIP 

CNIPCF 

CI'JLP 

CNLPCF 

CS 

DHHPCF 

DHIPCF 

DHLPCF 

DHTC 

DHTCHP 

DHTCIP 

DHTCLP 

DHTF 

DHTI 

DPAFT 

DPCOM 

DPDUC 


high  pressure,  compressor  corrected  shaft  speed  as  a 
percent 

fan  corrected  shaft  speed  as  a  percent 

high  pressure  turbine  corrected  shaft  speed  as  a 
percent,  PCNC//T4 

high  pressure  turbine  speed  correction  factor 

intermediate  compressor  corrected  speed  as  a  percent 

intermediate  turbine  corrected  shaft  speed  as  a 
percent,  PCNI/ / T45 

intermediate  turbine  speed  correction  factor 

low-pressure  turbine  corrected  shaft  speed  as  a 
percent,  PCNF/  yT5 

low-pressure  turbine  speed  correction  factor 

ambient  speed  at  sound  (ft /sec) 

high-pressure  turbine  work  correction  factor 

intermediate  turbine  work  correction  factor 

low-pressure  turbine  work  correction  factor 

high-pressure  turbine  work,  AH,  (Btu/lbm) 

high-pressure  turbi^a  work,  temperature  corrected, 
AH/T  (Btu/lbm  °R) 

intermediate  turbine  work,  temperature  corrected, 
AH/T  (Btu/lbm  °R) 

low-pressure  turbine  work,  temperature  corrected, 
AH/T  (Btu/lbm  °R) 

low-pressure  turbine  work,  AH  (Btu/lbm^ 
intermediate  turbine  work, AH  (Btu/lbm) 
afterburner /tailpipe  pressure,  loss,  AP/P 
combustor  pressure  loss,  A°/P 
fan  duct  pressure  loss,  AP/P 
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DTAFCF 


afterburner  temperature  rise  correction  factor 


DTAFDS 


afterburner  temperature  rise  at  design,  AT  (°R) 


DTCOCF 


Combustor  temperaturr  rise  correction  factor 


DTDUCF 


duct-burner  temperature  rise  correction  factor 


DTBUDS 


duct-burner  temperature  rise  at  design,  AT  (°R) 


ETAACF 


afterburner  efficiency  correction  factor 


ETAAD3 


afterburner  efficiency  at  design 


combustor  efficiency 


ETABCF 


combustor  efficiency  correction  factor 


high-pressure  compressor  adiabatic  efficiency 


ETACCF 


high-pressure  compressor  efficiency  correction  factor 


ductburner  efficiency 


ETADCF 


ETADDS 


ETAFCF 


ETAICF 


ETATHP 


ETATIP 


STATI.P 


ETKPCF 


ETIPCF 


ETLPCF 


duct  burner  efficiency  correction  factor 

ductburner  efficiency  at  design 

fan  adiabatic  efficiency 

fan  efficiency  correction  factor 

intermediate  compresfor  adiabatic  efficiency 

intermediate  compressor  efficiency  correction  factor 

high-pressure  turbine  adiabatic  efficiency 

intermediate  turbine  adiabatic  efficiency 

low-pressure  turbine  adiabatic  efficiency 

high-pressure  turbine  efficiency  correction  factor 

intermediate  turbine  efficiency  correction  factor 

low-pressure  turbine  efficiency  correction  factor 

fuel-air  ratios 

total  fuel-air  ratio 

gross  thrust  (lbf) 


FGM 


momentum  thru3t»  total  (lbf) 


FGMD 

FGMM 

FGP 

FGPD 

FGPM 

FN 

FRD 

H 

P 

PCNC 

PCNCGU 

PCNF 

PCNFGU 

PCNI 

PCNIGU 

PRC 

PRCCF 

PRF 
PFJFCr 
PR  I 
PRICF 

PS 

S 

SFC 

T 


momentum  thrust  from  duct  (lbf) 
momentum  thrust  from  core  (lbf) 
total  pressure  thrust  (lbf) 
pressure  thrust  from  duct  (lbf) 
pressure  thrust  from  core  (lbf) 
net  thrust  (lbf) 
ram  drag  (lbf) 
enthalpies  (Btu/lbm) 
total  pressures  (atm) 

high-pressure  compressor  shaft  speed  as  a  percent 

first  guess  of  PCNC 

fan  sh^ft  speed  as  a  percent 

first  guess  at  PCNF 

intermediate  compressor  shaft  speed  as  a  percent 
first  guess  at  PCNI 

high  pressure  compressor  pressure  ratio 

high  pressure  compressor  pressure  ratio 
correction  factor 

fan  pressure  ratio 

fan  pressure  ratio  correction  factor 

intermediate  compresser  pressure  ratvo 

intermediate  compressor  pressure  ratio  correction 
factor 

static  pressures  (atfn) 

entropies  (Btu/lbm  -°R) 

specific  fuel  consumption  (Ibm/lbf/hr) 

total  temperatures  (°R) 


T21DS 


T22DS 


T24DS 


TFFHP 


TFFIP 


TFFLP 


TFHPCF 


TFIPCF 


TFLPCF 


WACCF 


V/ACDS 


WAFCF 


static  temperatures 

fan  face  total  temperature  at  design  (°R) 

fan  exit  total  temperature  at  design  (°R) 

intermediate  compressor  exit  total  temperature 
at  design  (8R) 

ductburner  exit  temperature  at  design  (°R) 
afterburner  exit  tamper iture  at  design  (°R) 
first  guess  at  T4  (fcR)  ' 

high-pressure  turbine  flow  function 
intermediate  turbine  flow  function 
low-pressure  turbine  flow  function 

high-pressure  turbine  flow  function  correction  factor 

intermediate  turbine  flow  function  correction  factor 

low-pressure  turbine  flow  function  correction  factor 

velocities  (ft /sec) 

aircraft  velocity  (ft /sec) 

fan  duct  exhaust  velocity  (ft /sec) 

core  exhaust  velocity  (ft /sec) 

airflows  (lbm/sec) 

high-pressure  compressor  airflow  (lbm/sec) 

high-pressure  compressor  corrected  airflow  (lbm/sec) 

high-pressure  compressor  airflow  correction  factor 

high-pressure  compressor  airflow  at  design  (lbm/sec) 

duct  airflow  (lbm/sec) 
fan  airflow  (lbm/sec) 
fan  corrected  airflow  (lbm/sec) 
fan  airflow  correction  factor 


WAI 

WAIC 

WAICF 

WA3CDS 

WA23CDS 

WFADS 

WFDDS 

WFT 

WGT 

WG6CDS 

ZC,  ZF,  ZI 


intermediate  compressor  airflow  (lbm/sec) 

intermediate  compressor  corrected  airflow  (lbm/sec) 

intermediate  compressor  airflow  correction  factor 

high-pressure  compressor  exit  corrected  airflow 
at  design  (lbm/sec) 

ductburner  entrance  corrected  airflow  at  design  (lbm/sec) 
afterburner  fuel  flow  rate  at  design  (lbm/sec) 
ductburner  fuel  flow  rate  at  design  (lbm/sec) 
total  fuel  flow  rate  (lbm/sec) 
total  gas  flow  rate  (lbm/sec) 

afterburner  entrance  corrected  gas  flow  at  design 
(lbm/sec) 

similar  to  ZCDS,  ZFDS,  and  ZIDS  except  these 
are  off-design  -  see  Input  Symbols 
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SECTION  I 


INTRODUCTION 

In  1967,  a  digital  computer  program  for  balancing  cycle  turbofan 
engines  titled  SMOTE  was  developed  in  the  Air  Force  Aero  Propulsion 
Laboratory  (Reference  1) .  This  program  is  capable  of  simulating  design 
and  off-design  performance  of  two-spool  turbofan  engines.  This  report 
describes  a  similar  technique,  obtained  by  modifying  the  SMOTE  program, 
that  simulates  design  and  off-design  performance  of  three-spool  turbo¬ 
fan  engines.  NASA,  Pratt  and  Whitney,  General  Electric  and  other  con¬ 
tractors  have  developed  or  are  developing  working  models  that  simulate 
the  performance  of  three  spool  engines.  However,  through  the 
experience  gained  in  developing  an  in-house  computer  program,  more 
flexibility  can  be  exercised  in  making  modifications  to  satisfy  varying 
future  needs  without  being  dependent  on  contractors  or  other  organi¬ 
zations. 

Three-spool  turbofan  engim  s  will  be  competitive  as  candidates  for 
powering  future  aircraft  systems.  This  effort  has  provided  the  Air 
Force  Aero  Propulsion  Laboratory  with  an  in-house  method  for  evaluating 
the  peformance  cf  three-spool  turbcfan  engines. 


SECTION  II 
SUMMARY 


A  computer  program  titled  TRISPL  Is  described.  This  program  is  j 

derived  from  SMOTE  (Simulation  of  Turbofan  Engine)  which  was  developed 
by  the  Turbine  Engine  Division  of  the  AF  Aero  Propulsion  Laboratory, 
Wright-Patterson  AFB,  Ohio. 

TRISPL  calculates  design  and  off-design  performance  of  3-spool 
turbofan  engines.  Component  maps,  input  as  block  data,  are  scaled 
internally  to  simulate  a  specific  engine.  The  program  is  formulated 
for  two  core  spools  and  one  fan  spool  operation.  Options  are  included 
for  mixed  or  separate  flow  ougines  and  dry  or  afterburning  operation. 

The  program  can  be  modified  for  different  modes  of  operation  and  engine  . 

types,  2  fan  spools  and  one  core  spool  for  example.  j 
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SECTION  III 


METHOD  OF  ENGINE  CALCULATIONS 

The  following  discussion  is  very  similar  to  that  in  the  report 
describing  the  SMOTE  program. 

1.  COMPONENT  MAPS 

The  performance  of  the  major  engine  components  is  based  cn 
component  maps.  These  maps  are  usually  obtained  from  analytical 
methods  or  rig-testing  and  are  then  converted  into  Block  Data  subroutines 
for  use  by  TRISPL.  The  maps  presently  included  in  TRISPL  are  very  general 
and  do  not  represent  any  particular  engine  or  engine  components. 

The  component  maps  are  scaled  at  the  engine  design  point  by  TRISPL 
in  order  to  match  their  performance  to  a  desired  set  of  performance 
figures  which  are  input  as  data.  Scaling  or  correction  factors  are 
calculated  and  then  applied  to  the  maps  at  off-design  points.  The 
scaling  process  is  linear;  therefore,  correction  factors  near  unity 
result  In  the  highest  accuracy  of  component  simulation.  Conversely, 
however,  not  being  close  to  1.0  does  not  necessarily  mean  that  the 
simulati''"-  is  poor  since  many  maps  have  been  shown  to  be  typical  over 
quite  large  ranges  in  the  variables. 

TRISPL  presently  includes  component  maps  for  the  fan,  intermediate 
compressor,  high  pressure  compressor,  combustor,  and  the  three  turbines. 
Duct  burning,  duct  losses,  gas  mixing,  afterburning,  tailpipe  losses,  and 
nozzle  losses  are  all  calculated  or  input,  but  these  characteristics  could 
also  be  included  as  Block  Data  if  maps  were  available.  Likewise,  schedules 
for  bleed  air  and  variable  area  nozzles  could  be  used. 
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a.  Fan-Compressor  Maps 

The  fan  and  compressor  maps  are  very  similar  and  are  plots  of 
pressure  ratio  vs.  corrected  airflow  with  constant  corrected  speed  .Lines 
and  constant  efficiency  islands  (see  Fig.1).  Entry  to  the  map  is  through 
the  corrected  speed  and  Z,  where  Z  is  a  ratio  of  pressure  ratios,  and 
is  defined  at  a  constant  corrected  speed  as  shown  in  Figure  1.  It  is 
advantageous  to  use  Z  instead  of  pressure  ratio  because  Z  is  restrained 
between  the  limits  of  0  and  1,  whereas  the  limits  on  pressure  ratio  vary 
depending  upon  map  location  and  the  particular  map.  Also,  as  indication 
that  the  fan  or  a  compressor  is  approaching  surge  is  given  as  Z  approaches  1. 

b.  Combustor  Map 

The  combustor  map  is  a  plot  of  efficiency  vs.  temperature  rise 
for  constant  input  pressure  (see  Fig.  2) .  Entry  to  the  map  is  through 
temperature  rise  and  input  pressure,  with  efficiency  being  output. 

c .  Turbine  Maps 

The  turbine  map  is  a  plot  of  work  function  vs,  corrected  speed  with 
constant  turbine  flow  function  lines  and  constant  efficiency  islands 
(see  Fig.  3).  The  work  function  and  flow  function  are  defined  as 


DHTC  = 


HIN  ’  UOUT 


WGIN\/T7N 


Entry  to  the  m..u  is  through  corrected  speed  and  flow  function,  with  work 


function  anu  elT'clcncy  being  output. 


4 


4  U’a.lM.iOiU**-. 


CONSTANT  CORRECTED 
SPEED  (CN) 


CONSTANT  EFFICIENCY  (ETA) 


PRX  "  PRLO 


PR 


LO 


CORRECTED  AIRFLOW  (WAC) 

Figure  1.  Example  of  Fan-Compressor  Map 


TEMPERATURE  RISE  (DT) 
Figure  2.  Example  of  Combustor  Map 


CONSTANT  TURBINE 
FLOW  FUNCTION  (TFF) 


CONSTANT  EFFICIENCY 
(ETA) 


Figure  3.  Example  of  "urbine  Map 


The  work  function  coul^  have  been  used  as  an  entry  in  place  of  one  of 
the  present  entries,  but,  because  of  the  shape  of  the  curves,  this  could 
lead  to  double  entry  points  for  one  work  function.  However,  if  the  turbine 
maps  were  plotted  in  a  different  format,  this  could  be  an  acceptable 
method. 

2.  DESIGN  POINT 

Once  the  component  maps  have  been  reduced  to  31oek  Data  form  and 
placed  in  the  program,  it  is  necessary  to  run  a  design  point.  The  design 
point  is  r  m  at  those  conditions  under  which  the  real  engine  is  designed  or 
sized,  often  sea  level  static.  Design  parameters  necessary  to  simulate: 
the  real  engine  (for  example,  airflow,  bypass  ratio,  turbine  inlet 
temperature,  various  pressure  losses,  pressure  ratios,  etc.)  are  input 
and  a  complete  thermodynamic  cycle  calculation  is  performed.  For  more 
details  on  the  cycle  calculation  see  Section  III  4,  "Off-Design  Points". 
Scale  factors  for  the  component  maps  are  calculated  to  insure  that 
the  input  design  parameters  are  met.  If  the  design  parameters  have 
been  correctly  input,  the  design  point  will  be  completed  after  one  pass 
through  the  engine  calculations  (that  is,  no  balancing  will  occur)  because 
the  maps  are  shifted  to  reduce  the  errors  to  zero. 

Other  parameters  calculated  and  output  at  the  design  point  include 
certain  temperatures,  airflows,  gas  mixing  areas,  and  nozzle  throat 
and  exit  areas. 

3.  SCALING  FACTORS 

Scaling  or  correction  factors  are  calculated  at  the  design  point 
using  the  following  equation: 

P  (correction  factor)  ■  P  (design)/P  (map) 
where  P  represents  a  general  parameter.  One  exception  to  this  equation 
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is  the  equation  for  calculating  the  fan  and  compressors  pressure  correction 
factors: 

PR  (correction  factor)  «  [PR  (design)  -  l]/[PR  (map)  -l] 
where  PR  represents  a  general  pressure  ratio. 

Theoretically,  if  the  component  maps  and  the  input  design  parameters 
are  exact  representations  of  a  particular  engine,  the  correction  factors 
will  equal  1.  However,  this  will  not  be  true  due  to  map  interpolations, 
certain  assumptions  such  as  ideal  and  isentropic  flow,  and  tolerances 
in  the  thermodynamic  calculations.  If  unmatched  component  maps  are 
used,  the  correction  factors  can  differ  significantly  from  1. 

4.  OFF-DESIGN  POINTS 

The  following  discussion  pertains  particularly  to  off-design 
points,  although  the  input  and  the  general  cycle  calculations  are  the 
same  for  the  design  point.  Throughout  the  following  discussion,  it 
should  be  remembered  that  scaling  or  correction  factors  (multipliers) 
are  applied  to  all  performance  maps  (Block  Data  parameters).  A  schematic 
diagram  of  the  engine  components  and  station  designations  is  shown 
in  Fig.  4. 

a.  Input 

The  program  uses  a  controlled  output;  that  is,  the  variables! 
desired  as  output  can  be  selected  at  the  start  of  a  run.  This  selection 
is  obtained  by  placing  the  names  of  the  variables  in  the  first  section 
of  input  cards.  Controls,  scaling  factors  and  operating  conditions 
make  up  the  rest  of  the  input. 

The  control  inputs  are  used  to  determine  the  type  of  engine; 
mixed  or  separate  flow,  afterburning  or  duct  burning,  and  convergent 
or  convergent-divergent  nozzle.  The  controls  are  also  used  to  fix  the 
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mode  of  operation;  constant  PCNF,  constant  PCNC,  constant  T4,  or  constant 
WFB.  Other  controls  determine  inlet  conditions,  title  printout,  and 
cycle  looping  printouts.  The  correction  factors  can  be  input  directly, 
or  the  design  point  can  be  run  first  and  the  <_  ^eulated  factors  will  be 
stored  in  common.  The  operating  conditions  include  the  flight  Mach 
number,  altitude,  power  setting  (either  PCNF,  PCNC,  T4,  or  WFB),  duct  burner 
and  afterburner  temperatures  or  fuel  flows,  bleed,  and  horsepower 
extraction. 

b.  Initial  Values 

The  program  uses  six  primary  independent  variables:  ZF, 

PCNF,  21,  PCNI,  ZC,  PCNC  (T4  may  be  substituted  for  PCNF  or  PCNC, 
depending  upon  the  mode  of  operation).  Three  secondary  independent 
variables  (TFFHP,  TFFIP,  and  TFFLP)  are  also  used  to  ensure  correct 
entry  into  the  turbine  maps.  Initial  values  for  these  nine  variables 
must  be  obtained  to  start  the  program  at  each  point.  A  subroutine  (GUESS) 
supplies  these  variables  as  a  function  of  T2,  T21,  and  some  of  the 
variables  themselves.  It  is  important  to  note  that  the  closer  the 
initial  values  are  to  the  final  values  at  a  balanced  point,  the 
faster  the  program  will  run.  Therefore,  after  a  particular  engine 
configuration  has  been  run  a  few  times,  it  is  usually  advisable  to  change 
the  general  initial  value  equations  to  suit  the  engine,  using  the  knowledge 
gained  from  past  runs  to  estimate  more  closely  the  final  values  of 
the  variables. 
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c.  Inlet 


The  thermodynamic  properties  of  the  atmosphere  are  found  from 
a  1962  ARDC  Atmosphere  Tables  subroutine.  Using  conservation  of  energy 
and  isentropic  flow,  the  conditions  at  the  face  of  the  fan  can  be  found. 

A  ram  recovery  can  be  input  or,  if  not  input,  a  ram  recovery  defined  by 
MIL-E-5008E  Specifications  will  be  used.  If  desired,  a  T2-P2  direct 
input  mode  is  available  as  are  provisions  for  nonstandard  day  conditions, 
d.  Fan  and  Compressor 

Block  Data  is  used  to  determine  the  performance  characteristics 
of  the  fan  and  compressors.  Whan  Z  and  PCN  are  known,  the  pressure  ratio, 
corrected  airflow  and  efficiency  can  be  found  by  using  a  general  Block 
Data  interpolation  routine  named  SEARCH.  With  the  pressure  ratio  known 
and  when  the  assumption  of  isentropic  compression  and  the  efficiency  are 
used,  the  thermodynamic  conditions  at  the  exit  of  the  fan  and  compressors 
can  be  calculated.  Bleed  for  consumer  use,  leakage,  or  cooling  is  accounted 
for.  Actual  airflow  leaving  the  fan  and  compressors  is  calculated  from 
corrected  airflow,  temperature,  pressure,  and  bleed. 

It  should  be  mentioned  here  that  the  present  form  of  TRISPL 
calculates  corrected  speed  (CN)  in  a  manner  slightly  different  from  SMOTE. 
TRISPL  uses  an  equation  which  forces  corrected  speed  (CN)  to  equal 
physical  shaft  speed  (PCN)  at  the  design  point.  The  equation  is 

CN  ■•=  (PCN //"©)  •  /9d 

where  9  is  corrected  temperature,  and  0^  is  the  corrected  temperature  at 
design.  Thus,  at  the  design  point,  CN  =  PCN.  This  equation  is  useful 
for  studying  theoretical  engines  where  actual  maps  are  not  available  but 
must  be  changed  back  to  the  SMOTE  equation  if  real  engines  are  to  be 
simulated.  3M0TF.  uses  thi3  equation;  CN  *  PCN//©, 
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Combustor 


The  pressure  drop  in  the  combustor  is  a  function  of  a  design  pressure 
drop  and  ratio  of  corrected  airflow  to  design  corrected  airflow. 

Combustor  efficiency  is  obtained  from  Block  Data  using  SEARCH.  The  fuel 
used  is  assumed  to  be  JP-4  (at  59°F),  and,  with  the  assumption  of  adiabatic 
and  constant  pressure  combustion,  a  fuel  heating  value  equation  as  a 
function  jf  T4  has  been  derived.  Thus  the  fuel/air  ratio,  fuel  flow, 
and  thermodynamic  conditions  at  the  combustor  exit  can  be  calculated. 

If  WFB  is  known  instead  of  T4,  a  small  iteration  is  necessary, 
f .  Turbines 

The  turbine  subroutines  all  use  similar  logic  and  obtain  their 
performance  characteristics  from  Block  Data  using  subroutine  SEARCH.  All 
three  turbine  parameters  (CN,  TFF,  DHTC)  can  be  calculated  before  entering 
the  turbine  map,  but  only  two  are  needed.  Therefore,  the  third  parameter 
obtained  from  the  map  is  compared  with  the  calculated  third  parameter, 
and  a  balancing  error  is  generated  if  they  are  not  equal.  In  this  program, 

CN  and  TFF  are  used  for  map  entries,  and  DHTC  is  used  to  generate  the. 
error.  In  addition,  the  efficiency  .'s  also  obtained  through  SEARCH. 

In  addition,  another  error  will  u?  generated  if  TFF  is  not  within 
map  limits.  The  error  will  be  the  difference  between  TFF  and  the  nearest 
map  limit.  This  error  becomes  particularly  important  when  the  estimated 
initial  values  of  the  independent  variables  are  far  from  the  correct 
values,  and  the  point  is  extremely  unbalanced.  When  either  TFF  or  CN 
is  not  within  map  limits,  they  are  set  to  the  nearest  map  limit,  and  one 
of  the  independent  variables  is  changed  in  an  attempc  to  rectify  the 
situation.  The  operating  point  must  appear  on  all  maps  before  a  complete 


cycle  calculation  can  be  accomplished. 


\ 

\ 


11 


Horsepower  extraction  is  accounted  for  in  calculating  DHTC  of 
the  high  pressure  turbine.  When  the  efficiency  is  used  and  the  turbine 
process  is  assumed  isentropic,  the  thermodynamic  properties  at  the  three 
turbine  exits  can  be  calculated.  Any  bleed  airflow  for  cooling  the  turbines 
is  treated  as  if  it  entered  the  main  stream  behind  the  turbine,  and  the 
thermodynamic  properties  at  the  turbine  exit  are  recalculated  to  account 
for  this. 

\ 

g.  Duct 

The  duct  airflow  and  bypass  ratio  are  calculated  from  the  fan 
and  intermediate  compressor  airflows.  The  pressure  drop  in  the  duct  is 
treated  as  in  the  main  combustor.  For  duct  burning,  the  same  fuel  heating 
value  equation  that  was  used  in  the  main  combustor  is  again  used,  but 
the  efficiency  must  be  input.  As  in  the  combustor,  either  the  temperature 
(T24)  or  the  fuel  flow  (WFD)  may  be  input. 

If  a  separate  flow  engine  is  being  simulated,  the  duct  nozzle 
calculations  are  done  in  this  routine,  although  they  are  accomplished  in 
the  same  manner  as  for  the  main  nozzle. 

h.  Mixer 

The  gas  mixing  areas  (duct  exit  and  turbine  discharge  for  a 
mixed  flow  engine  or  just  the  turbine  discharge  area  for  a  separate 
flow  engine)  are  calculated  at  the  design  point  using  either  an  input 
core  static  pressure  or  Mach  number.  In  the  mixed  flow  mode,  there  is 
an  option  for  calculating  afterburner  entrance  area  as  a  function  of  ar. 
input  afterburner  entrance  Mach  number  at  the  design  point.  At  an  off- 
design  point  the  areas  are  used  to  calculate  static,  pressures  and  Mach 
numbers . 


12 


For  a  separate  flow  engine,  the  thermodynamic  conditions  entering 
the  afterburner  are  now  known,  since  they  are  identical  to  turbine  discharge 
conditions . 

For  a  mixed  flow  engine,  a  set  of  derived  equations  based  on  one¬ 
dimensional  fluid  flow  theory  and  conservation  of  mass,  energy,  and 
mementum  is  used  to  determine  the  thermodynamic  conditions  after  complete 
mixing  of  the  two  gas  streams.  These  equations  do  not  require  that  the 
static  pressures  of  the  two  entering  streams  be  equal.  However,  for  a 
correct  engine  balance,  the  two  static  pressures  must  be  equal,  and  a 
balancing  error  is  generated  if  they  are  not  equal. 

i.  Afterburner 

The  dry  loss  (cold  loss)  pressure  drop  in  the  afterburner  is  a 
function  of  a  design  pressure  drop  and  the  ratio  of  corrected  gas  flow 
to  the  design  corrected  gas  flow. 

For  afterburning,  the  same  equation  for  the  fuel  heating  value 
that  was  used  in  the  combustor  is  again  used,  but  the  efficiency  must  be 
input.  As  in  the  combustor,  either  temperature  (T2)  or  the  fuel  flow  (WFA) 
may  be  input.  A  momentum  loss  (hot  loss)  pressure  drop  is  also  calculated. 

j .  Nozzle 

The  main  nozzle  program  uses  fixed  effective  areas  (except 
when  afterburning  or  when  different  nozzle  areas  are  directly  input) 
calculated  at  the  design  point.  Either  a  convergent  or  convergent- 
divergent  subroutine  may  be  used  depending  upon  the  input  controls. 

If  afterburning  has  been  selected,  the  nozzle  areas  are  allowed  to  float 
to  obtain  optimum  performance;  however,  the  areas  are  returned  to  their 
original  design  values  after  the  afterburning  point  is  completed.  Nozzle 


§ 


% 


1 


&• 


s»- 

i 


Rk 

& 


areas  can  also  be  changed  by  directly  inputting  different  nozzle  area 
values.  The  duct  nozzle  behaves  identically  to  the  main  nozzle, 
including  floating  areas  if  duct-burning  has  been  selected. 

Because  all  thermodynamic  properties  of  the  gaj  stream  are  known, 
as  well  as  the  amount  of  flow,  nozzle  areas,  and  ambient  pressure,  there 
is  a  redundant  parameter.  For  this  program,  the  total  pressure  of  the  gas 
stream  was  chosen  as  the  redundant  parameter.  The  nozzle  calculations 
are  made  without  using  the  total  pressure,  and  a  required  total  pressure 
compatible  with  all  other  known  parameters  is  calculated.  This  required 
pressure  is  compared  with  the  actual  pressure  and  a  balancing  error  is 
generated  if  they  are  not  equal. 

k.  Performance  and  Output 

At  this  point,  nine  errors  have  been  generated  after  one  pass 
through  the  engine.  Several  more  passes  must  be  completed  under  control 
of  the  error  matrix  and  engine  balancing  technique.  See  Section  IV  for 
a  detailed  description  of  the  balancing  technique.  Eventually  however, 
the  errors  will  be  reduced  to  zero,  and  engine  performance  will  be 
calculated  using  standard  equations.  Gross  thrust  is  obtained  by  summing 
the  mementum  term  (a  nozzle  velocity  coefficient  may  be  input)  and  a 
pressure-area  term,  and  the  net  thrust  is  in  turn  found  by  subtracting 
a  ram  drag  (airflow  momentum  loss  at  inlet)  term  from  the  gross  thrust. 
Specific  fuel  consumption  (SFC)  is  total  fuel  flow  divided  by  net  thrust. 

As  previously  mentioned,  a  controlled  output  is  used,  whereby  only 
selected  variables  are  printed.  Each  variable  is  labeled  with  its  name 
and  provisions  have  been  made  for  changing  the  name  of  a  variable.  In 
addition,  the  values  of  all  variables  in  common  are  printed  in  a 

close  format  so  that  variables  other  than  those  selected  for  a  specific 
run  are  avai’abLe  later  on. 
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5.  QUADRATIC  INTERPOLATION  ROUTINE 

Throughout  the  program  there  are  many  small  loops  (.for  example, 
thermodynamic  iterations  and  table  look-upl  which  require  convergence. 
Trial -and -error  methods  and  linear  interpolations  can  he  time  consuming, 
especially  when  a  tight  tolerance  is  necessary;  therefore,  a  general 
interpolation  routine  called  AFQUIR  (.Air  Force  Quadratic  Interpolation 
Routine!  (.Reference  1!  is  used. 

A 

This  routine  requires  a  dummy  array  dimensioned  for  nine  locations. 
Also  input  into  the  routine  through  the  calling  argument  are  the 
independent  and  the  dependent  variables,  the  answer  or  value  which  the 
dependent  variable  is  to  converge  upon,  the  number  of  tries  at  conver¬ 
gence,  the  tolerance,  and  a  variable  called  DIR. 

The  DIR  is  either  set  or  calculated  in  the  calling  program  and 
is  an  initial  guess  at  the  direction  and  percentage  change  to  apply  to 
the  first  value  of  the  independent  variable.  If  not  enough  is  known  about 
the  variable  to  calculate  DIR,  an  arbitrary  value  may  be  set.  This  should 
not  affect  the  final  result,  but  may  increase  the  number  of  tries  of 
convergence . 

The  DIR  thus  establishes  the  second  value  at  the  independent  variable. 
This  value  is  used  in  the  calling  program  to  determine  a  corresponding 
second  value  of  the  dependent  variable  and  AFQUIR  is  called  a  second  time 
with  Lao  sets  of  values.  A  linear  interpolation  is  made  which  results  in 
a  third  value  of  the  indepcnuent  variable.  AFQUIR  is  then  called  a  third 
time  with  the  third  values  of  the  independent  and  dependent  variables  and 
a  quadratic  interpolation  is  made.  The  values  of  these  three  sets  of 
variables  have  been  stored  in  the  dummy  array,  and  from  hereon,  quadratic 
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interpolations  are  made  using  the  three  sets  which  give  values  closest 
to  the  answer.  Values  farthest  from  the  answer  are  lost. 

Various  safeguards  are  built  into  AFQUIR  to  return  the  interpolation 
method  to  DIR  or  linear  if  the  roots  of  the  quadratic  become  complex,  if 
the  quadratic  does  not  intercept  the  answer,  if  the  value  of  the  independent 
variable  differs  radically  from  previous  values,  or  if  two  sets  of 
independent  and  dependent  variables  are  identical. 

Also  it  is  possible  to  preload  the  dummy  array  directly  at  the 
linear  or  quadratic  interpolations  if  desired. 

In  summary,  AFQUIR  is  a  completely  flexible  routine  which  performs 
quadratic  interpolation  for  quick  convergence  of  general  functions. 


SECTION  IV 


BALANCING  TECHNIQUE 

The  balancing  technique  is  virtually  the  same  as  that  used  in  SMOTE. 

It  is  based  on  finding  a  solution  for  a  set  of  partial  differential 
equations.  For  this  program,  the  set  is  composed  of  nine  equations; 
however,  using  a  set  of  only  three  equations  will  simplify  the  following 
discussion.  This  corresponds  to  a  basic  single  spool  turbojet  simulation. 
SMOTE  uses  a  set  of  six  equations. 

As  discussed  previously,  nine  independent  variables  (ZF,  PCNF  or  T4, 
ZI,  PCNI ,  ZC,  PCNC  or  T4,  TFFHP,  TFFIP,  and  TFFLP)  were  selected.  Once 
these  variables  have  been  given  initial  values,  it  is  possible 
to  proceed  through  an  entire  engine  cycle  calculation.  Nine  errors  are 
generated  as  shown  in  Section  III.  These  initial  values  of  the  nine 
variables  and  nine  errors  are  referred  to  as  base  values. 

In  the  following  equations,  V  refers  to  a  variable  and  E  to  an  error. 
The  basic  set  of  differential  equations  based  on  E  =  f(V)  is 

dE,  =— fill  dV.  +  f~12  dV_  +  3E. _  dV„ 

1  3V1  1  9V2  2  3V*3  J 

o 

dE2  ■  if  dvi +  if  dv2  ♦  if  dvs 

d,!3 a  if  dv!  *  if  dV2  *  if  dv3 


Three  more  passes  (nine  for  TR1SPL)  are  now  made  through  the  engine 
cycle  calculations,  and  one  variable  is  changed  by  a  small  amount  (AV)  for 
each  pass.  The  change  in  each  error  due  to  the  small  change  in  Jie 
variables  (AE/AV)  can  be  calculated. 
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The  above  set  of  differential  equations  can  now  be  solved  for  dV, 

*•> 

dV£  and  dVj  and,  in  general,  the  new  value  of  each  independent  variable 
would  be  given  by 

V  *  VB  ■<*  dV 


If  the  engine  cycle  calculations  were  linear  functions,  the  engine  would 
balance  (errors  equal  zero)  with  these  new  values  of  the  variables. 

However,  this  is  usually  not  the  case.  The  new  errors  become  base 
errors  (still  keeping  the  old  A E/A V's)  and  another  attempt  at  balance  is 
performed.  If  several  such  attempts  still  fail,  the  entire  process  is 
repeated  where  the  new  errors  and  variables  become  base  values  and  a 
new  set  of  AE/AV's  are  calculated. 

A  subroutine  to  determine  the  solution  of  a  matrix  is  used  to  solve 
the  set  of  differential  equations.  After  each  pass  through  the  engine,  a 
matrix  array  is  loaded  with  the  appropriate  values;  after  ten  passes  (base 
value  plus  nine  independent  variables)  the  matrix  subroutine  is  called 
to  solve  the  matrix. 

It  was  found  that  the  "dV's"  obtained  from  the  solution  of  the 
differential  equations  were  in  many  cases  too  large,  thus  causing  the 
variables  to  exceed  their  limits,  and  to  make  it  practically  impossible 
to  balance  the  cycle.  The  "dV's"  are  therefore  multiplied  by  a  suppression 
factor  calculated  in  the  program  which  limits  the  swing  of  the  variables. 
Although  this  procedure  may  tend  to  increase  the  number  of  passes  before 
balancing  in  some  cases,  it  also  balances  points  which  previously  would 
not  balance.  These  points  are  most  generally  far  from  the  design  point, 
where  oscillations  of  the  dependent  variables  tend  to  build  up. 


19 


irr-fr j  ■-‘B  iff  1 


SECTION  V 


INPUT/OUTPUT  DESCRIPTIONS 

% 

1.  BLOCK  DATA  INPUT 

The  three  compressor  maps  are  entered  into  the  program  as  BLOCK 
DATA  subprograms  FANDAT,  INTDAT,  and  CMPDAT. 

Using  FANDAT  as  an  example  (refer  to  program  listing),  and  refer¬ 
ring  to  typical  map  (Fig.  1),  the  data  are  progranmed  as  follows: 

Card  1  identifies  the  program  as  BLOCK  DATA.  Card  2  is  a  comment  card. 
Card  3  identifies  the  common  block  FAN  into  which  data  are  to  be  stored 
and  dimensions  the  program  variables.  Card  4  indicates  that  there  are 
10  speed  lines  N  and  the  number  of  points  NP  on  each  line  (6  on  the 
lowest  speed,  7  on  the  next  3  lines,  etc).  Card  5  assigns  the  value  of 
speed  to  each  of  the  10  lines  (low  to  high).  The  remaining  cards 
indicate  the  values  of  pressure  ratio  (PR),  corrected  airflow  (WAC),  and 
efficiency  (ETA)  for  the  speed  linee.  For  example,  the  card 
DATA  (PR  (4,J) ,  J  -  1,7)/ 

denotes  that  the  pressure  ratios  are  for  the  4th  speed  line  (CN  «  0.6) 
and  that  there  are  7  points. 

The  combustor  BLOCK  DATA  subprogram  is  CMBDAT.  Referring  to  the 
program  listing  and  a  typical  combustor  map  (Fig  2),  the  data  are 
programmed  as  follows: 

Card  1  identifies  the  program  as  BLOCK  DATA.  Card  2  identifies  the  common 
block  COMB  into  which  data  are  to  be  stored  and  dimensions  the  variables. 
Card  3  indicates  that  there  are  15  lines  of  constant  PSI(P3)  by  the 
value  of  N,  and  that  there  are  15  values  of  DELT  (DT)  and  ETA(ETAB)  along 
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each  line  of  constant  P5I(P3).  Cards  4  and  5  assign  values  to  each  of 
the  P3  lines  from  low  to  high  pressure.  Cards  6  to  8  assign  values  of 
AT  tc  each  of  the  P3  lines  starting  at  low  AT.  The  lowest  value  of  AT 
on  each  of  AT  on  the  lowest  value  of  P3.  Next  comes  the  second  lowest  value 
of  AT  on  each  P3,  etc.  Cards  9  to  16  assign  the  value  of  ETAB  in  a 
one-to-one  correspondence  with  the  AT  values  just  assigned.  The  ordc.- 
is  the  same. 

The  turbine  maps  are  the  BLOCK  DATA  subprograms  hTURB,  ITURB,  and 
LTURB .  Taking  HTURB  as  an  example  and  referring  to  the  program  listing 
and  a  typical  map  (Fig. 3)  the  data  are  programmed  as  follows*  Card  1  iden¬ 
tifies  the  subprogram  as  BLOCK  DATA.  Card  2  is  a  COMMENT  card.  Card  3 
identifies  the  common  block  HTURB  into  which  data  are  to  be  loaded  and 
dimensions  che  program  variables.  Card  4  indicates  the  number  of  constant 
turbine  flow  function  lines  TFF  as  11  (N)  and  the  number  of  points  on 
each  line  from  low  to  high  TFF.  Cards  5  and  6  set  values  of  TFF  from 
low  to  high.  The  remaining  cards  set  the  values  of  corrected  speed 
(CN),  work  function  (DH) ,  and  efficiency  (ETA)  starting  from  low  TFF. 

For  example,  the  card, 

DATA  (DH(5,J) ,  J  *  1,15)/ 

denotes  that  the  work  functions  are  for  the  5th  flow  function  line 
(TFF  =  49.175)  and  that  there  are  15  points. 

2.  CONTROLLED  OUTPUT/NAMELIST  INPUT 

The  input  data  is  divided  into  two  sections;  data  cards  for  the 
controlled  output,  and  data  cards  in  Namelist  format  for  running  each 
point.  For  the  following  discussion  on  setting  up  input  data,  refer  to 
the  listing  of  sample  data  immediately  following  the  program  listing. 
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a.  Controlled  Output 

The  variables  that  are  to  be  output  are  selected  by  the  first  section 
of  data  cards.  Any  variable  that  is  in  one  of  the  main  commons  (DESIGN, 
FRONT,  SIDE,  or  BACK)  may  be  selected  for  output  by  punching  the  name  at 
the  variable  as  it  appears  in  the  common  (with  trailing  blanks  if  necessary) 
in  Columns  1  throu  u  7.  Up  to  150  variables  (25  lines  of  6  variables) 
may  be  chosen  for  a  particular  run.  During  the  output  phase,  the  name 

\ 

of  the  variable  is  printed  out,  with  its  value  printed  immediately  below 
the  name. 

Another  feature  of  the  controlled  output  is  the  ability  to  change 
the  name  of  a  variable  to  be  output;  for  example,  it  may  be  desired  to 
change  a  station  designation  to  one  more  common  to  a  particular  programmer. 

In  this  case,  the  variable  name  would  be  punched  in  Columns  1  through  7 
as  described  above,  but  in  addition,  the  desired  name  would  be  punched 
in  Columns  15  through  22.  Special  symbols,  such  as  /,  may  be  used  in  the 
new  name.  The  last  card  of  the  controlled  output  must  be  a  card  with 
THEEND  punched  in  Columns  1  chrough  6. 

In  addition  to  the  variables  selected  aa  controlled  output, 
the  values  of  all  variables  in  common  are  printed  in  a  close  format 
so  that  variables  other  than  those  selected  for  a  specific  run  are 
available  later  on. 

b.  NAMELIST  Input 

The  normal  data  for  running  the  desired  points  follows  the  controlled 
output  data  and  is  in  a  Namelist  format,  where  the  name  of  the  Namelist  is 
DATAIN.  Usually  the  first  set  of  data  is  the  design  point,  as  shown  in 
the  sample  input  data.  When  the  design  point  is  run  (DDES  =  1),  all  map 
scaling  or  correction  factors  are  printed  out,  as  well  as  being  retained 


in  common.  Therefore,  it  is  possible  to  run  off-design  points  immediately 
following  the  design  point  by  making  use  of  the  values  in  common,  or  to 
begin  running  an  off-design  point  immediately  by  inputting  the  scaling 
or  coi rection  factors.  The  first  method  is  usually  easier,  but  the  second 
method  may  be  desired  if  many  points  are  to  be  run  using  the  same  engine 
parameters  with  no  changes  except  for  power  setting,  Mach  number,  and 
altitude. 

The  variables  that  must  be  input  at  the  design  point  for  the 
basic  cycle  (for  example,  no  afterburning)  are  listed  in  Table  I  below: 


TABLE  I 
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INPUTS  REQUIRED  FOR  BASIC  CYCLE  AT  DESIGN  POINT 


VARIABLE 

DEFINITION 

UNITS 

PRFDS 

Fan  pressure  ratio 

WAFDS 

Fan  face  airflow 

lb/sec 

ETAFDS 

Fan  efficiency 

ZFDS 

Design  Z  of  fan 

PCNFDS 

Fan  shaft  speed  expressed  as  percent 

PRIDS 

Intermediate  compressor  pressure  ratio 

WAIDS 

Intermediate  compressor  (core)  airflow 

lb/sec 

ETAIDS 

Intermediate  compressor  efficiency 

ZIDS 

Design  Z  of  intermediate  compressor 

PCNIDS 

Intermediate  compressor  shaft  speed 
as  a  percent 

PRCDS 

Nigh  pressure  compressor  pressure  ratio 

ETACDS 

High  pressure  compressor  efficiency 

ZCDS 

Design  Z  of  high  pressure  compressor 

PCNCDS 

High  pressure  compressor  shaft  speed 
as  a  percent 

ETABDS 

Combustor  efficiency 

DPCODS 

Combustor  pressure  drop,AP/P 

DTCODS 

Combustor  temperature  rise 

°R 

T/tOS 

Turbine  inlet  temperature 

°R 

TFHPDS 

High  pressure  turbine  flow  function 

lb/"R/ (SFC)  ( j; 

CNHFDS 

High  pressure  turbine  corrected  speed 

ETIH’DS 

High  pressure  turbine  efficiency 

IFIPDS 

Intermediate  turbine  flow  function 

lb/*R/(SFC)i.i 

t 

< 
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VARIABLE 

DEFINITION 

UNITS 

CNIPDS 

Intermediate  turbine  corrected  speed 

ETIPDS 

Intermediate  turbine  efficiency 

TFLPD3 

Low  pressure  turbine  flow  function 

lb/°R/(sec) (psia) 

CNLPDS 

Low  pressure  turbine  corrected  speed 

ETLPDS 

Low  pressure  turbine  efficiency 

DPDUDS 

Fan  duct  pressure  drop,  A  P/P 

DPAFDS 

Tailpipe  pressure  drop,  A  P/P 

AM  5  5 

Mach  number  at  low  pressure  turbine  exit 

or 

PS55 

Static  pressure  at  low  pressure  turbine 
exit 

atm 

AM 

Flight  Mach  number 

ALTP 

Altitude 

ft 

Ht'EXI 

Horsepower  extraction 

hp 

CVMNOZ 

Main  nozzle  velocity  coefficient 

CVDNOZ 

Duct  nozzle  velocity  coefficient 

+ 

Various  bleed  flows  (see  Symbols) 

+ 

Various  control  parameters  (see  below) 

Af  mentioned  in  Table  I,  various  control  parartecers  which  fix  the 
engine  type,  mode  of  operation,  method  of  calculating  ram  recovery,  etc. 
must  be  input.  These  are  listed  below.  Subroutine  ZERO  determines 
what  values  In  common  will  be  zeroed  between  points.  None  of  the  design 
values  or  correction,  factors  are.  zeroed  but  some  of  the  control  parameters 
are.  In  the  control  parameter  listing  below,  the  superscripts  (1)  to  (4) 
have  tin?  following  meanings:  (1)  ar-  '-atically  returned  to  zero  after 
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each  point  is  calculated,  must  be  rs-input  if  option  is  again  desired, 
(2)  option  can  be  used  only  at  off-design  points;  (3)  these  input 
values  remain  as  input  unless  changed  by  a  new  value;  (4)  a  set-up  case 
must  be  run  where  all  the  components  are  first  matched  before  these  £  0 
options  are  used,  then  the  identical  case  may  be  repeated  exercising 


these,  options, 

(1) 

IDES  =  1 

(3) 

MODE  =  0 


(2) 


(3) 


MODE 


MODE  *  2 


(3) 


(2)M0DE  -  3 


(3) 


INIT  =  0 


(3) 


INIT  -  1 


(3) 


IDUMP  =  0 


(3) 


IDUMP  =  1 


(3) 


IDUMP  =  2 


(3) 


IAMTP  =  0 


(3) 


IAMTP  =  1 


(3) 


IAMTP  =  2 


(3) 


(3) 

IAMTP  *3 
(3) 

IAMTP-4 

(3) 

1GASMX=0 


For  calculating  design  point 
Specify  T4 


Specify  PCNC 

Specify  WFB 

Specify  PCNF 

Initializes  point 

Will  not  initialize  point 

No  looping  write-outs 

Will  dump  looping  write-outs  if  error  occurs 
Will  dump  looping  write-outs  after  every  point 
Will  use  AM  and  mil-spec  ETAR 
Will  use  input  AM  and  input  ETAR 


Will  use  input  T2  as  T1=T1+T2  and  standard  PI  (T2  value 
needs  to  be  input  at  every  point  or  an  error  wl.1 1  occur 
whenever  used) 


Will  use  input  P2  and  standard  T1 
Will  use  input  T2  and  input  P2 
Separate  flow,  A6=A55 
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1GASMX=1 

(3) 

IGASMX=2 

(4)  (1) 

IDBURN=1 

(4)  (1) 

IDBURN=2 

(4)  (1) 

IAFTBN=1 


(4)  (1) 

IAFTBN=2 
(3) 

IDCD=1 

(3) 

IHCD=1 

(4)  (3) 

N0ZFL1-1 

(4)  (3) 

NOZFLT=2 

(4)  (3) 

NOZFL1-3 

XTRYS=N 

TOLALL^X 


DELFG,  DELFN, 
DELSFC 

(1) 

XTITLE=1 


Will  mix  duct  and  main  streams,  A6»A25+A55 
Will  mix  duct  and  main  streams,  input  AM6 

For  duct  burning,  input  T24 

For  duct  burning  input  WFD 

For  afterburning  (mixed  or  unmixed  streams),  input 
T7 

For  afterburning  (mixed  or  unmixed  streams),  input  WFA 
FAn  duct  nozzle  will  be  convergent-divergent 
Main  nozzle  will  be  convergent-divergent 

For  floating  main  nozzle  exit  area 

For  floating  duct  nozzle  exit  area 

For  floating  duct  and  main  nozzle  exit  areas 

Number  of  passes  through  engine  before  quitting 

Tolerance  which  the  errors  must  satisfy  before 
engine  is  matched 

Normally  input  as  1.0  unless  a  correction  is  desired 

A  title  card  must  follow  after  the  input  data  for 
this  point  (see  below) 


A  title  card  must  be  input  immediately  after  the  first  point  of  the 
data  pack  and  ITITLE  must  be  set  equal  to  1  in  the  data  for  the  first 
point.  This  is  because  a  title  is  always  printed  for  each  point  and 
must  therefore  be  previously  defined.  The  input  format  for  the  title 
is  L2A6  and  the  resulting  72  spaces  are  centered  on  the  page  when 

printed  out.  The  title  may  be  changed  by  setting  ITITLE=1  and  inserting 

a  new  title  card  after  the  Namelist  data  for  the  point. 
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Off-Design  Operation 


Shown  in  the  sample  input  listing  are  methods  of  specifying  off-design 
operation  points.  The  user  inputs  the  appropriate  control  parameters, 
Mach  number,  altitude  and  power  setting  other  than  design  values  (power 
setting  being  a  value  for  T4,  PCNC,  PCNF,  or  WFB). 

If  the  engine  has  all  its  nozzles  fixed,  then  an  input  such  as  T4 
or  shaft  speed  will  set  the  thrust  level.  Other  means  of  changing 
engine  operation  can  be  accomplished  by  varying  nozzle  throat  areas  A8 
*.nd  A28.  For  example,  an  off-design  condition  may  exist  where  the 
operating  point  lies  outside  the  limits  of  the  block  data  input  for 
a  component  map  such  as  the  fan.  A  nozzle  throat  area  change  could 


return  the  operating  point  back  on  the  input  map.  It  should  be  noted 
that  an  area  remains  changed  until  it  is  recalculated  by  a  new  design 
case  or  altered  by  a  new  input. 

The  nozzle  exit  area  (A9  and/or  A29)  may  be  floated  to  obtain  full 
expansion  of  using  N0ZFLT*1,  2  or  3  for  non-afterburning  cases. 

To  run  duct  burning  (fan  stream  only),  cases  load  ETAD,  and 
either  T24  or  WFD.  To  run  afterburning,  cases  load  ETAA,  T7  or  WFB. 
When  such  a  point  is  run,  the  exhaust  nozzle  areas  are  allowed  to  float 
to  obtain  optimum  expansion.  This  means  that  there  can  be  no  balancing 
at  the  point,  and  it  is  necessary  to  prebalance  the  engine  cycle  in  a 
nonaugmented  mode.  That  is,  an  identical  point,  except  that  it  is 
nonaugmented  must  be  run  before  either  afterburning  or  duct  burning. 
When  either  IAFTBN  or  IDBURN  is  greater  than  zero,  the  program  will 
automatically  set  INIT“1  and  use  the  balanced  values  from  the  preceding 
point.  The  nozzle  areas  are  returned  to  their  original  values  after 
completing  an  augmented  point.  Some  examples  of  afterburning  are  given 
in  the  samp1 e  data  listing. 
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SECTION  VI 


SUBROUTINE  DESCRIPTIONS 
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4  chart  of  the  computer  program  with  the  subroutines  is  shown 
5.  Listed  here  are  brief  descriptions  of  the  subroutines. 

Dummy  main  program  to  initiate  "'the  calculations 
and  cause  the  input  of  the  controlled  output  variables. 
Because  of  the  looping  between  subroutines,  control 
is  never  transferred  back  to  this  routine. 

Main  subroutine.  Controls  all  engine  balancing 
loops,  checks  tolerances  and  number  of  loops  and 
loads  matrix. 

Salves  error  matrix 

Reads  Namelist  data  and  title.  Prints  title. 

Zeroes  common  and  certain  controls 

Determines  ram  recovery  and  performs  inlet  calculations 
1962  US  Standard  Atmosphere  table 
Calculates  ram  recovery  defined  by  MIL-E-5008B 
Specifications 

Determines  initial  values  of  independent  variables 
(PCNF,  PCNI,  PCNC,  and  T4)  at  each  point.  It  may  be 
desired  to  change  these  equations  to  suit  a  particular 
engine.  The  closer  the  initial  values  are  to  the 
final  values,  the  faster  the  program  will  balance. 

Uses  BLOCK  DATA  to  perform  fan  calculations 

Uses  BLOCK  DATA  to  perform  intermediate  compressor 

calculations. 
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COCOMP 


Uses  BLOCK  DATA  to  perform  high-pressure  compressor 
calculations.  Calculates  ERR(7). 

COCOMB  Uses  BLOCK  DATA  to  perform  combustor  calculations. 

May  use  either  T4  or  WFB  as  the  main  parameter. 

COHPTB  Uses  BLOCK  DATA  to  perform  high-pressure  turbine 

calculations.  Calculates  ERR(l)  and  ERR(2). 

COIPTB  Uses  BLOCK  DATA  to  perform  intermediate  turbine 

calculations.  Calculates  ERR(S)  and  ERR(9). 

COLPTB  Uses  BLOCK  DATA  to  perform  low-pressure  turbine 

calculations.  Calculates  ERR (3)  and  ERR (4). 

FRTOSD  Dummy  routine  to  transfer  values  from  common  FRONT 

to  common  SIDE. 

CODUCT  Performs  duct  and  duct-burning  calculations.  May 

use  T24  or  WFD  as  the  main  parameter  for  duct 
burning.  Controls  the  duct  nozzle  and  calculates  LRR( 
if  in  separate-flow  mode. 

FASTBK  Dummy  routine  to  transfer  values  from  common  FRONT 

and  SIDE  to  common  BACK. 

COMIX  Performs  gas  mixing  calculations  if  in  mixed  flow 

mode.  At  design  points  it  calculates  areas  from 
either  an  input  static  presaure  (PS55)  or  an  input 
Mach  number  (AM55)  if  PS55=0.  Also,  an  option 
exists  where  afterburner  entrance  area  A6  is 
calculated  as  a  function  of  an  input  afterburner 
entrar-'e  Mach  number  AM6  at  the  design 
point.  At  off-design  points  it  calculates  static 


COAFBN 

COMNOZ 

PERF 

OUTPUT 

CONCUT 

ERROR 


SYG 


TAPES 


THCOMP 

THTURB 


pressures  and  Mach  numbers  £rom  the  design  areas. 
Calculates  ERR(5)  if  in  mixed-flow  mode. 

Performs  afterburning  calculations.  May  use  either 
T7  or  WFA  as  the  main  parameter. 

Controls  the  main  nozzle  and  calculates  ERR(6). 
Calculates  performance  after  engine  is  balanced. 

Prints  output  except  for  controlled  output.  Prints 
the  main  commons  in  a  close  format  after  each  point. 
Controls  and  prints  the  controlled  output  variables. 
Controls  all  printouts  if  an  error  occurs.  Prints 
name  of  subroutine  where  error  occurred  and  also 
prints  the  values  of  all  variables  in  the  main  commons. 
Controls  printing  from  UNIT08.  Throughout  the 
program  and  particularly  in  ENGBAL,  certain 
messages,  variables,  and  matrix  values  are  written 
on  UNIT08  as  an  aid  in  determining  why  an  error 
occurred  or  why  a  point  did  not  balance.  These 
values  are  printed  out  if  subroutine  ERROR  is 
called  and  IDUMP  is  greater  than  zero,  or  after 
a  good  point  if  IDUMP*2. 

Defines  UNIT08,  which  is  just  a  "scratch"  disk 
and  does  not  require  a  $SETUP  card.  Normal 
input  and  output  are  on  UNIT05  and  UNIT06, 
respectively. 

Performs  isentropic  calculations  for  compressors. 
Performs  isentropic  calculations  for  turbines. 

Provides  thermodynamic  conditions  using  PROCOM. 


THERMO 


wm 


‘  'M  ‘ 


PROCOM 


SEARCH 


MAP B AC 


CONVRG 

CONDIV 


SMUKrnnf^Xrxm^m^ 


Calculates  thermodynamic  gas  properties  for  either 
air  or  a  fuel-air  mixture,  based  on  JP-4. 

General  table  lookup  and  interpolation  routine  to 
obtain  data  from  Block  Data  routines. 

Used  when  calculations  result  in  values  not  on  the 
turbine  maps.  Changes  the  map  value  and  an 
independent  variable  (PCNF,  PCNC  or  T4)  in  an 
attempt  to  rectify  the  situation. 

Performs  nozzle  calculations  for  a  convergent  nozzle. 
Performs  nozzle  calculations  for  a  convergent-diverger 


AFQUT.R 

CMBDAT 

FANDAT 

INTDAT 

CMPDAT 

LTURB 

ITURB 

HTURB 


nozzle. 

General  quadratic  interpolation  routine. 
Block  Data  for  combustors. 

Block  Data  for  fan. 

Block  Data  for  intermediate  compressor. 
Block  Data  for  high-pressure  compressor. 
Block  Data  for  low-pressure  turbine. 
Block  Data  for  intermediate  turbine. 
Block  Data  for  high-pressure  turbine. 


B 


F: 


SECTION  VII 


PROGRAM  LISTING 


The  following  is  a  complete  listing  of  all  subroutines  required 
to  run  TRISPL, 
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3 


4 


^2SrtiM,Ifti55l:ii^UT,OUTPUT*TAPE5*INPUT»TAPe6;:OUTpuT»TApE8> 

COfINON  /POINT/ICATPT 

IOATPTsO 

CALL  CONOUT (1) 

CALL  ENGBAL 

STOP 

ENO 
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SUBROUTINE  F^GBAL 
COHNON  /  A,.L/ 

1HORD  »IOES  )  JOES  fKOES  y  MODE  ,INIT  ,IOUMP  ,  I  AMT  P  , 
2 IGASMXylQSURNy IAFTBNylOCO  ,IMCD  , IOSHOC, IMSNOC , NOZFLT , 
3  IT RYSyLOOPER'/NOMAPy  NUMHAPy  MAPEOGy  TOLALL yERR (9) 
UTNHON/OESIGN/ 


lPCh'FCU 

y  PC  NIGU 

yPCNCGU 

,  T4GU 

yOLMDl 

yOELFG 

t OELFN 

yDELSFC  , 

2ZFDS 

t PCNFOS 

yPRFOS 

yETAFDS 

t MAFOS 

yPRFCF 

yETAFCF 

,WAFCF 

3ZI0S 

f PCNIDS 

yPRIDS 

yETAIDS 

s NAXOS 

yPKlCF 

y  ETAICF 

yWAICf 

4ZCDS 

, PC NCOS 

yPRCDS 

yETACDS 

yt'ACOS 

yPRCCF 

yETACCF 

,WACCF 

5T40S 

»  NF60S 

,0TC0D3 

yETABOS 

y  NA3CDS 

yDPCOOS 

yOTCOCF 

yETABCT 

6TFHP0S 

t CM HPDS 

yETHPOS 

yTFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

,  T20S 

7TF  IPOS 

yCNIFDS 

yETlPDS 

yTFIPCF 

yCMPCF 

yETIPCF 

yDHIPCF 

y  T21D5 

8TFLPDS 

t CNLPOS 

♦ETLPDS 

♦TFLPCF 

yCNLPCF 

yETLPCF 

yDHLPCF 

, T  22DS 

9T2  40  S 

t HFOOS 

yOTOUOS 

yETADOS 

, MA230S 

yOPOUOS 

yOTOUCF 

yETADCF 

AT7  OS 

y  WFADS 

yOTAFDS 

yETAAOS 

,  HG6C0S 

yOPAFOS 

y  DTAFCF 

yETAACF 

B  A5  5 

♦  A25 

♦  A6 

♦  A7 

♦  A8 

,A9 

yA28 

,  A29 

CPS  55 
COMMON/ 

,  AM55 
FRONT/ 

yCVONOZ 

3  CVMNOZ 

yA8SAV 

,A9SAV 

, A28SAV 

, A29S  AV 

1T1 

♦  PI 

♦  HI 

♦  si 

♦  T2 

♦  P2 

♦  H2 

y  S  2 

2T21 

♦  P2 1 

y  H21 

t  S21 

,T22 

yP22 

,H22 

y  S22 

3T3 

♦  P3 

»H3 

y  S3 

♦  T4 

♦P4 

y  H4 

,S4 

4T45 

,P45 

yH45 

« S45 

♦  T5 

♦  P5 

♦  H5 

,S5 

5T55 

,  P55 

yH55 

,355 

yBLF 

yBLI 

y  BLC 

y  BLDU 

6  CNF 

»  PRF 

,ETAF 

yWAFC 

yHAF 

yBLDUI 

y  BLOUC 

y  BLOB  v 

7  CNI 

y  PR  I 

,ETAI 

y  MAIC 

,  MAI 

»BLOBI 

y  BLOBC 

,  H  A3 

8CNC 

y  PRC 

yETAC 

yHACC 

yMAC 

,ETAB 

yOPCOM 

♦  WG4 

9CNHP 

yET  AT HP 

yOHTCHP 

yOHTC 

yBLHP 

yBLHPI 

y  BLHPC 

,FAR4 

ACNIP 

yETATIP 

yOHTCIP 

yDHTI 

yBLIP 

yBLIPI 

yBLIPC 

yDUMF 

BCNLP 

y  ET  ATLF 

yOHTCLP 

yOHTF 

yBLLP 

yBLLPI 

y  BLLPC 

,CS 

CMG45 

y  FAR45 

y  HG5 

y  FAR5 

,  MG55 

,FAR55 

,HPEXT 

y  AM 

OALTP 

,ETAR 

♦  ZF 

yPCNF 

♦  ZI 

yPCNI 

♦  ZC 

y  PC  NC 

EhFB 

yTFFH!; 

yTFFIP 

yTFFLP 

yPCBLF 

yPCBLI 

yPCBLC 

yPcaioui, 

FPCBLOUC 

GPCBLCPC 

COMMON/ 

yPCBLOBI 

SIDE/ 

, PC3L0BC 

yPCBLHPI 

, PCBLHPC 

yPCBLIPI 

yPCBLIPC 

yPCBLLPI , 

1XP1 

yXHAF 

yXHAI 

yXMAC 

yXBLF 

yXBLDU 

yXBLOUI 

y  X8LCUC  , 

2XH22 

yXH3 

,  XT21 

y  XP21 

y  XH21 

yXS21 

yOUMSl 

y  DUMS2  , 

3T23 

,  P2  3 

y  H23 

,S23 

,T24 

,P24 

y  H24 

yS24 

4T2  5 

,  P25 

♦  H25 

yS25 

yT28 

yP28 

,H28 

,  S28 

5T29 

,P25 

y  H29 

yS29 

, DIM S3 

,UUMS4 

, 0UMS5 

y  DUMS6  > 

6  MAD 

y  MFD 

yMG?'f 

y  FAR24 

yETAD 

yOPOUC 

yBYPASS 

y  DUMS  7  . 

7TS28 

a  PS  28 

yV28 

y  AH28 

y  TS29 

yPS29 

,  V29 

y  AM29 

COMMON  /  BACK/ 


XXT55 

y  XP5  5 

,XH55 

,XS55 

y  XT25 

yXP25 

y  XH25 

yXS25 

XXHFB 

y  X  KG  55 

, XFAR55 

,XMFD 

y  XHG24 

y  XFAR24 

tXXPl 

y  DUMB 

3T6 

,P6 

y  H6 

yS6 

♦  T7 

tP7 

♦  H7 

♦  S7 

4T8 

♦  P  8 

,H8 

y  S  8 

♦  T9 

♦  P  9 

♦  H9 

♦  S9 

5  MG6 

,MFA 

j  HG7 

yFAR7 

yETAA 

,OPAFT 

,V55 

,  V25 

6  PS  6 

yV6 

,  AN6 

,TS7 

♦  PS7 

♦  V7 

y  AM7 

y  AM25 

7  TS  8 

,PS8 

,V8 

y  AMS 

y  TS9 

yPS9 

♦  V  9 

y  AM9 

ft  VA 

,FRO 

,VJD 

,FGMD 

,VJM 

,  FGMM 

yFGPO 

y  FGPM 

9 

9«0M 

yFGP 

yHFT 

yHGT 

yFART 

♦  FG 

,FN 

,SFC 

OIMENSIQrt  DELSA  V  (9) 

DIMENSION  VAR (9) ,0EL(9) ,ERRB (9> ,0ELVARI9> y EMAT t9, 9) , VMAT f 9) , 
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1AM  AT  (9) 

DATA  0ELSAV/9*.0C1/ 

DATA  AW0RD/6HENGBAL/ 

OATA  VDELT A,  VLIM, VCHNGE, NOHISX/ 

1  0.001,0.100,0.  850,4/ 

OAfA  OEL/9*0 •/ 

CALL  INPUT 

IF  (INIT.EQ.l)  GC  TO  50 

TFFHP=TFHP05 

TFFIP=TFIPOS 

TFFLP=TFLPDS 

LOOP£R=0 

NUHH  AP=0 

NOMI SS=0 

LO  OP  =  0 

HI  SMAT=0 

NOMAP=0 

IGO-2 

DO  2  1=1,9 
VM  AT  <  I )  —  0  • 

AH  AT  ( I  >  —  0  • 

0ELVAR(I)=0* 

00  2  L«1 ,9 
EMAT(I,L)  =  0. 

LOOi'ER=LOOPER+i 
CALL  COFAN 
HO  RO  =  AMORD 

IF  (LOOPER*  GT •  ITRYSi  GO  TO  20 
IF  (NOMAP  .GT.  0)  GO  TO  1 
HU  MH AP=0 
VAR<1I  =  2F*100» 

IF(MOQE.NE.3)  VAR(2I=PCNF 
IF (M0QE*EQ«3)  VAR 12J=T4/1Q. 

VA  R  ( 3  )  =  2C*  10  C  • 

IFCMOOE.NE.i)  VAR(4»=PCNC 
IF (HOOE.EQ.l)  VAR(4) =T4/1Q • 

VA  R(  5  )=TFF  HP 
VAR(  6>=TFFLP 
VA  R  ( 7 )  =2 1*  10  0  • 

VA  R  (  8  )  =  PCN  I 
VA  R ( 9 ) =T?F IP 
GO  4  1=1,9 

IF  CABS  (ERR  (I)  )  *GT«TO(.ALL>  CO  TC  5 
4  CONTINUE 
CALL  PERF 
CALL  ERROR 

IFiLCCP.GT.Of  GC  TO  7 

MAPEOG=C 

MAPS£T=0 

00  6  1=1,9 

ERR8(I)=ERRm 

OEL<I)  =  VOEL7$*VAR.a> 

GO  TO  9 

IF(HISMAT.GTcO)  GO  TO  33 
IF  (HAPCOG.  £Q ,  0)  GG  TO  70 


70 


6 

9 


10 


11 

12 


13 


14 


15 


IS 

17 


VAR (LOOP) ♦2«*DEL (LOOP) 


VAR  (LOOP)- 
VAR (LOOP) a 


V AR (LOOP) ♦DEL (LOOP) 
VAR (LOOP) >0EL (LOOP) 


HA PE0G*0 
MA  PSET*1 
VAR(LOOP) 

GO  TO  10 
IF  (MAPSET. EQ.O) 

IF(NAPSET.EQ.l) 

HAPFETsO 
00  6  1*1,9 

IF  (DEL  (LOOP)  .NE.O.)  DELSAV (LOOP) =0EL (LOOP) 

IF (OEL(LCOF) .EQ.O.)  OEl (LOOP) =DEL5AV (LOOP) 

EH AT (I,LQOP) *(ERRB( I) -ERR (I) )/DEL (LOOP) 

LOCHaLOOP+1 

IF  (LOCP.GT  .9)  GO  TO  11 

VA R (LOOP)* VAR (L GOP) -DEL (LOOP) 

ZF*VAR(1)/100 • 

IF (HOOE.NE  *3)  PCNF*VAR(2) 

IF (MODE. EQ. 3)  T4*VAR (2) *10 . 

ZC*VAR(3)/100« 

IFCHOOE.NE.l)  PCNC=  VAR (4) 

IF  (MOOE.EQ.l)  T4=VAR(4)*1Q. 

TFFHP*VAR(5) 


ZF*0.05 
ZI  =  0. 0  5 
ZC=0.05 
i  IGO 


TFFLP*VAR(6) 

ZI»VAR(7)/100. 

PCHI*VAR(«) 

TFFIP*VAR ( 9) 

IF(ZF«LT  *0  •) 

IF  (ZI 3LT r-0  a ) 

IF(ZC.LT.O.) 

GO  TO  (1,3), 

00  12  1*1,9 
AH  AT  (I)*-E  RRB  (I) 

00  14  1*1,9 
IZERO*0 

00  13  L00P*1 ,9 

IF (EHAT (I, LOOP) .EQc  0.)  IZER0*IZERC*1 

IF(IZER0.LT.9)  GO  TO  14 

MUTE  (6, 10  0)1 

LOQPER*ITR YS+IQQ 

GO  TO  20 

CONTINUE 

00  lb  LOOP*!  ,9 

IZERO»0 

00  15  1*1,5 

IF (EHAT ( I, LOOP) .EQ.O.)  IZER0*IZERC4 1 

IF (IZERO.LT. 9)  GO  TO  16 

HR ITE  (6, 10 1) LOOP 

lOOPERsITRYSUOfl 

GO  TO  20 

CONTINUE 

CALL  MATRXX<EHAT,VHAT,AKAT> 

L8  IG*Q 

VAR8IG*0.t 

CO  18  L*l, 9 

A6SVAN*A8S  (VHAT  (U) 

IF(ABSVAR.LE.VLIM*VAR!U )  GO  TO  18 
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18 


19 


20 

21 

22 

30 

31 

32 


100 

101 

102 

103 
104 
10  5 


10b 


IF  (aeSVAP.  L£.  VARBIG)  90  TO  18 
L8IG  =  L 

VARS IG-Ae? VAR 
CONTINUE 
VRATIC=l.n 

I P  CIB1G.GT.0)  VRATX0=VLIM*VAR(LBIG>/VARBIG 
ERRA  VE=C  .0 
VMTAVE-0.0 
G£LAV£=0.Q 
00  19  L=l,9 

OELVAR(L)=VRAfIO*VMAT  (L) 

ERRAVE=EPR AVE+ ABS(AHAT (LI) 

VMTA  VE=VMT  AV£*A8S(VMAT  (LI) 

OELA VE=OEL AVE»AES(OELVAR (L) ) 

VAR<  L)=V  AR  (L)  ♦DEI.VAR(L) 

ERR,\VE=ERRAVE/9. 

VMTAVE=VMTAVE/9. 

GELAVE=0£l  AVE/9. 

IF  (MISHAT.GT.O)  GO  TO  32 
IF (NOKISS. £0.0)  M2SMAT=1 
IF  (MISMAT.EO.O)  IG0*1 
WRITE (8, 10  2)  LOOPER 
00  21  1  =  1,9 
HR ITE (8, 10  3) 

WRITE  (ft,  10  4) 

IF  ILOQPER.  IT .ITRYS) 

CALL  ERROR 
RETURN 

VMTAVX=  VMT  AWE 
OO  31  1=1,9 
AM  AT  ( I)  =  -ERR (I) 

GO  TO  17 

WRITE  (8, 10  5)  AMAT,ERRAVE,DELVAR»OELAVE,VMAT,VMTAVE,VAR 
MI  SHA  T-HISKAT+1 

IF (VMTAVE,LT.VChNGE*VMTAVX)  GO  TO  22 
WRIT  E  <8, 10S) 

IF  (HISHAT.LT. NOKISX)  N0HI3S=i 

Ml SM AT=Q 

LOOPaO 

IG  0=2 

GO  TO  55 

FORM AT (4H3R0N,I 2,16 H  IS 


AHAT(I)  ,  (EH  AT  (I, L), 1=1,9)  ,VHAT  (X),D£LVAR(I>  »V'AP. 
ERRAVE ,VMTAVE,OELAVE 
GO  TO  10 


(li 


FORMAT ( 7H0 COLUMN, 12, 16H 


ZERO  IN 
IS  ZERO 


EMAT) 

IN  EMAT) 


FORMAT (7HD  ERRB ,31 X23H ERROR  MATRIX  AFTER  LOOP,I4,31X4HVMAT , 
16X  6HOcLVAR,7X10HV  ARIA  BLEU) 

FORMAT  < 1H0 ,F7.3 ,9F9 .3,4XF9. 3 ,3XF,10. 4,4XFli.  4) 

FORMAT ( 1H0 »F 8 14  »32X14HA VERAGE  VALIES,31X,2F11 .4, 

FORMAT  (12H0- -  A MAT , 10F11 .6 , 6H|$t$St , 

1/,  12H  . PEL VAR , 10F11.6 ,6HSSf X$S, 

2/,  12H  — —  VMAT ,10Fll*6,6HlltSt$» 

3/,  12H .  VAR, 9 FI  1 .6, 6HM$$S$) 

FORMAT  ( 1N0  ,5GX22HCHANGE  TOO  SMALLISH**) 

ENO 
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SU8R0UTZNE  INPUT 
DIMENSION  TITLE  <12? 

COMMON  /POINT/IOATPT 
COMMON  /  AU./ 

1HORO  , IDES  y  JOES  y KOES  , MODE  yINIT  ,IOUMP  ,IAMTP  , 
2IG ASMXylOBURNylAFTBNy IDCO  ,IMCD  y IOSHOC, IHSHOCy NOZFLT, 
3  IT  RYS  yLOOPER  y  NOMAP y NUMKAPy  MAPEOG , TOLALL ,ERR ( 9 ) 
COMMON/DESIGN/ 


1PCNFGU 

yPCNIGU 

yPCNCGU 

,T4GU 

yOUHOi 

yOELFG 

yOELFN 

yDELSFC 

2ZF0S 

yPCNFOS 

,PRFDS 

yETAFOS 

,HAFOS 

yPRFCF 

yETAFCF 

,HAFCF 

3ZIOS 

yPCNIOS 

yPRIOS 

yETAIOS 

yHAIOS 

yPRZCF 

yETAICF 

,HAICF 

4ZC0S 

yPCNCOS 

yPRCOS 

yETACDS 

y  HACOS 

yPRCCF 

y  ETACCF 

,HACCF 

5T40S 

, HFBOS 

,OTCOOS 

yETASOS 

, HA3C0S 

yOPCOOS 

yOTCOCF 

yETABCF 

6TFHP0S 

yCNHPDS 

yETHPOS 

y  TFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

y  T2DS 

7TF IPOS 

yCNIPOS 

yETIPOS 

y  TFIPCF 

yCNIPCF 

yETIPCF 

yOHIPCF 

,T2iDS 

8TFLPOS 

yCNLPOS 

,ETLPDS 

yTFLPCF 

yCNLPCF 

yETLPCF 

yOHLPCF 

,T220S 

9T240S 

,  HFODS 

yOTOUOS 

yETAODS 

y  HA23CS 

yOPOUOS 

,OTOUCF 

y  ETAOCF 

AT7DS 

y  HF AOS 

,OTAFDS 

yETAAOS 

, HG6C0S 

yOPAFDS 

yOTAFCF 

,ETAACF 

BA55 

yA25 

,A6 

»A7 

,A8 

»A9 

y  A26 

,  A29 

CPS  55 

y  AM  55 

yCVDNOZ 

yCVMNOZ 

y A6SAV 

t  A9SAV 

y  A26SAV 

y  A29S  AV 

COMMON/  FRONT/ 

1T1 

»Pi 

.Hi 

.SI 

»T2 

»P2 

»  H2 

,S2 

2T21 

,P21 

,H21 

y  S21 

,T22 

,P22 

y  H22 

,S22 

3T3 

,P3 

,H3 

.S3 

»T4 

,P4 

,H4 

»S4 

4T45 

,  P4  5 

,H45 

yS45 

,T5 

»P5 

»H5 

»S5 

5T5  5 

,  P55 

y  H55 

y  S55 

y  8LF 

yBLI 

,  BLC 

,BLDU 

6  CNF 

,PRF 

,ETAF 

yMAFC 

,  HAF 

yBLOUI 

y  BLOUC 

,  BLOB 

7CNI 

y  PR  I 

*ETAI 

yMAIC 

y  MAI 

,BLOBI 

,BLOBC 

y  HA3 

ttCNC 

y  PR  C 

,ETAC 

y  MACC 

yMAC 

yETAB 

yOPCOM 

y  HG4 

9CNHP 

yETATHF 

yOHTCHP 

yOHTC 

yBLHP 

yBLHPI 

yBLHPC 

,  FAR4 

ACNIP 

yETATIP 

yOHTCIP 

yOHTl 

yBLIP 

yBLIPI 

yBLIPC 

yDUMF 

8CNLP 

yETATLP 

yDHTCLP 

,OHTF 

yBILP 

yBLLPI 

yBLLPC 

y  C) 

CNG45 

,  FAR45 

y  HG5 

,FAR5 

yHG55 

,FAR55 

,HPEXT 

y  AM 

DAL  TP 

yETAR 

>ZF 

yPCNF 

»ZI 

yPCNI 

.zc 

yPCNC 

EHF8 

,TFFHP 

yTFFIP 

,TFFLP 

,PCBLF 

yPCBLl 

yPCBLC 

yPCBLDUI 

FFCSLOUCy PCGLCBIy PCBL08C 

y  PCBLHPI 

yPCBLHPC 

yPCBLIFIyPCBLIPCyPCBLLPI 

GPC8LLPC 

COMMON/  SIOE/ 

1XP1 

,XHAF 

yXHAI 

yXHAC 

yXBLF 

yXBLDU 

yXBLDUI 

yXBLDUC 

2XH22 

y  XH3 

y  XT2 1 

y  XP21 

y  XH21 

yXS21 

yOUMSi 

y  OUMS2 

3T23 

yP23 

,H23 

y  S23 

yT24 

yP24 

yH24 

,  S24 

4T2  5 

yP25 

,H25 

y  S25 

y  T28 

yP2  8 

yH28 

,S28 

5T29 

yP29 

y  H29 

y  S29 

y  0LMS3 

,DUMS4 

yOUMS5 

y 0UMS6 

6  HAD 

y  HF  C 

y  WG24 

, FAR24 

yETAO 

yOPOUC 

, BYPASS 

y  BUMS  7 

7TS28 

yPS26 

y  V28 

.  AM28 

y  TS29 

yPS29 

y¥29 

y  AM29 

COMMON 

/  BACK/ 

XXT55 

y XP5  5  y 

XH55  y  XS55  y  XT  25  yXP25 

,  XM25 

yXS25 

» 

XXHF8 

yXHG55  y 

XFAR55yXHF0  y XHG24  yXFAR24tXXPi 

,0UM8 

. 

3T6 

.F6  » 

H6  ,S6  y  T7 

»P7 

,H7 

,S7 

» 

4T8 

*P«  , 

H»  yS8  yT9 

»P9 

»H9 

»S9 

» 

5HG6 

f  HFA  y 

WG7  ,FAR7  yETAA  > DPAFT  ,V55 

yV25 

» 

6PS6 

y  V6  y 

AM6  ,TS7  ,PS7  , V7 

y  AM7 

y  AM25 

» 

7TSS 

yPS8  , 

V8  , AM8  y  TS9  ,PS9 

»V9 

y  AMS 

» 

8VA 

»FR0  y 

VJO  .FGMO  .VJM  ,FGMM  yFGPO 

yFGFM 

t 

9FGM 

,FGP  , 

HFT  , WGT  y FART  yFG 

»FN 

,SFC 

p  * 

% 

f 

1 

1 

NAME LIST/O AT AIN/  IENO, 

rnw/iaiia,  •MUM  i 

1- 

AITITLE 

,IOES 

,  MODE 

,  INIT 

, I CUMP 

, IAHTP 

, IGASMX 

f 

M 

I 

rj f“ 

8I0  8URN 

,  IA FTBN 

,IPCO 

,  IMCO 

,NCZFLT 

, ITRYS 

,  TOLALL 

9 

CZFDS 

,PCNFOS 

, PRFOS 

, etafos 

, WAFOS 

»PRFCF 

,ETAFCF 

, WAFCF 

I 

OZIOS 

,PCNiqs 

,  PRIOS 

, ET  AIDS 

, MAIDS 

,PRICF 

, ET  AICF 

,WAICF 

i. 

EZCOS 

, PC NCOS 

, PRC OS 

, ET  ACOS 

t 

PRCCF 

,ET  ACCF 

, WACC  F 

}* 

FT4  0S 

, WF60S 

,OTCOOS 

iETABOS 

, W A3CDS 

,  OPCOOS 

, DTCOCF 

,ETA8CF 

02 

5- 

tfr 

GIF  HPOS 

,  CNHPOS 

, ETHPOS 

,tfhpcf 

,CNHPCF 

,ETHPCF 

, OHHPCF 

,  T20S 

3k 

& 

fv 

H  TF IPOS 

, CN IPOS 

,ETIPOS 

,tfipcf 

,CNIPCF 

,ETIPCF 

, OHIPCF 

,T210S 

1 

ITFLPCS 

, CNLPCS 

, ETLPOS 

,tflpcf 

,CNLPCF 

,ETLPCF 

, DHLPCF 

,T220S 

g 

JT240S 

, WFOOS 

, OTOUOS 

, ETAOOS 

, N A230S 

iOPOUDS 

, OTOUCF 

, ET  AOCF 

1 

s« 

KT7  0S 

, WF  AOS 

,  OTAFOS 

,etaaos 

, WG6C0S 

»DPAFDS 

,OTAFCF 

, ET  AACF 

h 

£ 

LA55 

,A25 

,A6 

»A7 

*A8 

»A9 

,  A28 

,  A29 

if- 

| 

MT2 

»  P2 

»T4 

»ZF 

» PCNF 

*ZI 

»ZC 

,  PCNC 

H 

& 

NHFB 

,TFFHP 

,TFFIP 

, TFFLP 

,  AM 

,ALTP 

,ETAR 

, HPEXT 

a 

& 

OPCBLF 

,  BLF 

,  PCBLI 

,  BLI 

»PCBLC 

,  8LC 

, PCBLOUI 

,PC3L0UC 

% 

PBLOUI 

, 8L0UC 

, PCBLOBI 

, PCBLOBC 

,BLOBI 

,BLOBC 

,PCBLHPI 

,PCBLHPC 

Sr 

I 

QPCBLIPI 

,  FCBLIPC 

,  PCBLLFI 

,PCBLLPC 

,8LHPI 

,BLHPC 

, BLIPI 

, BLIPC 

& 

RBLLPI 

,  8LLPC 

,PS55 

,  AM55 

,  AM6 

,T24 

,  ETAO 

,  WFO 

§ 

& 

ST7 

,ETAA 

,  WFA 

, CVONOZ 

,CVMNOZ 

fOELFG 

, DELFN 

, OELSFC 

f- 

f 

OATA  IENO/ 0/ 

§ 

c 

M*  IT  ITLE= 

1  WILL 

REAO  IN 

TITLE 

y. 

C 

***  IDES  = 

1  FOR  CALCULATING  DESIGN  POINT 

c 

•**  MOOE  = 

0  FOR  CONSTANT 

T  4 

| 

/* 

c 

***  MOOE  = 

1  FOR  CONSTANT 

PCNC 

fc 

.* 

c 

♦**  MOOE  = 

2  FOR  CONSTANT 

WFB 

S’ 

c 

**♦  MOOE  = 

3  FOR  CONSTANT 

PCNF 

% 

i 

c 

***  IN  IT  = 

1  WILL 

NOT  INITIALIZE  POINT 

1 

c 

***  IOUMP  = 

1  WILL 

DUMP  LOOPING  WRITE-OUTS 

IF  ERROR 

OCCURS 

1 

c 

***  IOUMP  - 

2  WILL 

OUMP  LOOPING  WRITE-OUTS 

AFTER  EVERY  POINT 

*** 


c 
c 
c 

c  *** 

*  *• 


#*¥ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


•*#* 
♦  »* 


»** 

*** 


**♦ 

»«» 


**  » 
*  ** 


*  ** 
*** 


<MM7 


=0 

IAMTP  =1 
IAMTP  =2 
IAMTP  =3 
IAMTP  =4 


WILL  www  *n»  w  i  n ri  nnu  Anr  vi  &  I  wil\ 

WILL  USE  T2  AS  TisTl*T2  AND  STANOARD  Pi 

- .  -  WILL  USE  P2  AND  STANOARC  Tl 

IAMTP  =4  WILL  USE  T2  ANO  P2 

IGASMX=0  SEPARATE  FLOW,  A6=A55 

IG ASM  X=1  WILL  WIX  OUCT  ANO  MAIN  STREAMS,  A6=A25*A55 

.  “  WILL  MIX  OUCT  ANO  MAIN  STREAMS, INPUT  AM6 

FOR  OUCT  BURNING,  INPUT  T24 
FOR  DUCT  BURNING,  INPUT  WFO 
FOR  AFTERBURNING,  INPUT  T7 
FOR  AFTERBURNING,  INPUT  WFA 
CUCT  NOZZLE  WILL  BE  C-Q 
MAIN  NOZZLE  WILL  BE  C-D 

I  DAT  Tklf.  MATU  Mn7TI 


IG  ASMX=2 
10  8URN  =  1 
I0BURN=2 
IAFT8N-1 
IAFT8N  =  2 
IOCO  =1 

IN  CO  =1  MAIN  NOZZLE  WILL  BE  C-D 
N0ZFLT=1  FOR  FLOATING  MAIN  NOZZLE 
NO  ZFL  T  =  2  FOR  FLOATING  OUCT  NOZZLE 
N0ZFLT=3  FOR  FLOATING  MAIN  ANO  OUi 
ITRYS  =K  NUMBER  OF  PASSES  THRU  EM 


.1— «.  «  vn  f  LVMl  AI1U  UUUI  HUL4LC 

T=3  FOR  FLOATING  MAIN  ANO  OUCT  NOZZLES 
;  =  N  NUMBER  OF  PASSES  THRU  ENGINE  BEFORE  QUITTING 
AW0R0/6H  INPUT/ 

1 T  =  1 CATFT+1 


CA TA  - - -  * 

10  ATP  T  =  I CATFT+1 
CALL  ZERO 
WO  R0=  AHORO 


«u  ku-whuku 

RE  AD  < 5, DAT  AINI 

IF(IENO.NE.O)  STOP 

CALL  REMAR K ( 14HNEW  DATA  POINT) 
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jjjgg 


IFUAFTBN.  GT.O.OR.IDBURN.GT.O)  INIT=i 
IF(ITITLE.EQ.l)  READ(5,10i)  TITLE 
IT  ITL£»Q 

HR ITE (6» 10 2)  TITLE 

IF (M0GE*£Q«0)  WRITE <8,103)  IDES, AH, ALTP ,T4  ,T24»T7 

IF(MODE.EQ.i)  WRITER, 1041  IDES, AH, ALTP, PCNC,T24,T7 
IF(MOOE.EQ.Z)  WRITE (8,105)  IOCS, AM, ALTP fWFB  ,T24,T7 
IF (MGDE«EQ  *3)  WRITE<8,106)  IDES,  AH,  ALTP, PCNF  ,  T?ST7 
CALL  COINLT 
RETURN 

101  FORMAT (12A6) 

102  FORMATdHl  ,30X12A6) 

103  FORMAT (1H0 ,7H  IOES*, 13 , 10X7H  AM*,F7 ,3, 6X7H  ALTP=,F7.Q, 

I. 6X7H  T4*,F8.2,5X7H  T24-,F8. 2 ,5X7H  T7s,F8.2,6HtS$S$S) 

104  FORMATdHO  ,7H  IOES-,13, 10X7H  AM*,F7.3,6X7H  ALTP=,F7.0, 

J. 6X7H  PCNC*,F8.3,5X7H  T24*,F8.2,5X7H  T7*,F8.2,6HJ$J$$$) 

105  FORMATdHO,  7H  IOES*, 13, 10X7H  AM=,F7.3,6X7H  ALTP  =  ,F7.'0, 

j,  6X7H  WFB*, F8»4,5X7H  T24*,F8.2,5X7H  T7*,F8.2,6H*JSJS$) 

106  FORMAT (1H0 ,7H  I0ES=,I3, 1QX7H  AM*,F7.3,6X7H  ALTP=,F7.0, 

16X7H  PCNF=,F8.3,5X7H  T24*,F8.2,5X7H  T7*,F8.2,6Hi$$$$J> 

END 


SUBROUTINE  ZERO 
COHHON  /  ALL/ 

lhORO  *  IDE  S  ,  JOES  ,KDES  ,HOOE  ,INIT  ,IDUHP  , IAHTP  , 
2 IG ASMX , IOBURN, IAFTBNylOCO  ,IMCD  , IOSHOC, IMSHOC ,NOZFLT , 
3ITRYS,LC0PER,N0MAP,NUMMAP,MAPE0G,T0LALL,ERR(9> 

COMMON/  FRONT/ 


1T1 

,P1 

♦  Hi 

»S1 

»T2 

»P2 

»H2 

»S2 

2T21 

,  P21 

,  H21 

,  S21 

,T22 

,P22 

,  H22 

y  S22 

3T3 

»P3 

*H3 

,  S3 

»T4 

pP4 

t  H4 

>S4 

4T45 

,  P4  5 

,  H45 

,  S45 

» T5 

»P5 

»H5 

»S5 

5T55 

,P55 

,H55 

,S55 

,  BLF 

yBLI 

y  BLC 

y  BLOU 

6CNF 

,  PRF 

,ETAF 

,  HAFC 

,MAF 

yBLOUI 

,BLOUC 

,  BLOB 

7CNI 

,  PR  I 

,ETAI 

,  HAIC 

yMAI 

yBLOBI 

,BLOBC 

,WA3 

8CNC 

,  PRC 

,ETAC 

,  MACC 

y  H  AC 

,ETAB 

yOPCOM 

yMG4 

9CN  HP 

, ET  ATHP 

,OHTCHP 

yOHTC 

yBLHP 

yBLHPI 

, BLHPC 

,  FAR4 

ACNIP 

,ET  ATIP 

,OHTCIF 

,  OHTI 

,  BLIP 

y BL I PI 

yBLIPC 

yOUMF 

BCNLP 

, ET ATLP 

,OHT  CLP 

,  OHTF 

yBLLP 

yBLLPI 

,BLLPC 

,CS 

CWG45 

, FAR45 

,  NG5 

,  FAR5 

,  MG55 

,FAR55 

,HPEXT 

,  AM 

OALTP 

,etar 

iZF 

yPCNF 

.Zl 

yPCNI 

,zc 

yPCNC 

EMFB 

,TFFHP 

yTFFIP 

,TFFLP 

,PCBLF 

yPCBLI 

yPCBLC 

yPCBLOUI 

FPCBLOUC, PCBLC6I yPCBLOBC 

, PCBLHPI 

, PCBLHPC 

yPCBLIPI 

yPCBLlPC 

yPCBLLPI 

GFCBLLFC 

COMMON/  SIOE/ 

1XP1 

,  XM  AF 

,  XMAI 

yXHAC 

yXBLF 

yXMLOU 

yXBLOUI 

yXBLOUC 

2XH22 

,  XH3 

,  XT21 

,  XP21 

y  XH21 

,y.S2i 

yOUMSl 

, 0UMS2 

3T2  3 

,P23 

,  H23 

,  S23 

»T24 

,P24 

y  H24 

yS24 

4T2  5 

,P25 

,  H25 

,  S25 

,T28 

,P28 

,  H28 

yS28 

5T2  9 

,P29 

,H29 

,  S29 

, 0UHS3 

,0UMS4 

y  0UMS5 

, 0UMS6 

6  HAD 

,MFO 

,NG24 

, FAR24 

,ETAO 

yOPOUC 

, BYPASS 

, 0UMS7 

7TS28 

,  PS28 

,  V28 

,  AM28 

,TS29 

,PS29 

,V29 

,  AH29 

COMMON 

/  BACK/ 

X  XT  55 

,  XP5  5  , 

XH55  , XS55  ,XT25  ,XP25 

y  XH25 

y  XS25 

» 

XXWFB 

, XMG55  , 

XFAR55,XHF0  ,XNG24  ,XFAR24,XXP1 

yOUNB 

» 

3T6 

»P6  , 

H6  ,S6 

»T7 

»PZ 

»H7 

,S7 

» 

4T8 

,P8  , 

H8  ,S8 

*T9 

,P9 

»H9 

»S9 

» 

5  HG6 

,  HFA  , 

HG7  ,FAR7  , ETAA  , DRAFT  ,V55 

,  V25 

* 

6  PS  6 

» V6  , 

AM6  ,TS7  , PS7 

» V7 

,  AM7 

,  AM25 

t 

7  TS  8 

,PS8  , 

V8  ,AM8  , TS9 

,PS9 

»V9 

»  AM9 

t 

8VA 

,FRO  , 

VJD  ,FGMO  , VJM 

,FGMM 

yFGPC 

,FGPM 

t 

9FGM 

,FGP  , 

HFT  ,HGT  ,FART  ,FG 

»fn 

,SFC 

DIMENSION  Z1  (94) ,Z2 (56) 

, Z3 ( 72) 

EQUIVALENCE  (Z1(1),T1), 

(Z2(l) yXFl) , ( Z 3  < 1 ) ,XT55) 

DATA  ISTART/0/ 

ISTART=IST  ART  +1 

10  ES  =  0 

JDES=Q 

INIT  =  0 

I09URN=Q 

IA  FT  9N=0 

ID  $H0C=3 

IMSH0C=3 

IF  < I  START*  NE  .1)  GO  TO  4 

C***  ZERO  FRONT, SIDE, ANO  BACK  INITIALLY  TO  PREVENT  COC  6600  MOOE  ERRO  * 
OO  5  1  =  1,94 
5  Zi(I)=Q. 
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CALL  SYGtl) 
RETURN 
4  CONTINUE 
T2Q*T2 
F2Q*P2 
T4Q*Y4 
00  1  1*1 ,94 
2i(I)*0. 

00  2  1*1,56 

Z2  ll)=0. 

00  3  1*1,72 
23(11*0* 
T2*T2Q 
P2*P2Q 
T4*T  40 
CALL  SYG(l) 
RETURN 
END 
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SUBROUTINE  CCINLT 
COMMON  /  ALL/ 
iHORO  t  IOES  (JOES 


t  IOSHOC*  IHSH( 
,  TOLALL»ERR(9» 


yNOZFLT 


iPCNFGU 

f  PCNIGU 

yPCNCGU 

y  T4GU 

yCOMOl 

yOELFG 

yOELFN 

yOELSFC  , 

2ZFOS 

»  PCNFCS 

yPRFOS 

nETAFOS 

,HAFOS 

yPRFCF 

yETAFCF 

yHAFCF  , 

3ZIOS 

yPCNIOS 

yPRIOS 

yETAXOS 

yHAIOS 

yPRICF 

yETAICF 

»HAICF  , 

4ZCDS 

t PC NCOS 

, PRC OS 

yETACOS 

y  MACOS 

yPRCCF 

yETACCF 

,WACCF  , 

5T40S 

yHFecs 

yOTCOOS 

yETABOS 

,  HA3C0S 

yOPCOOS 

yOTCOCF 

,ETABCF  , 

6TFHP0S 

.CNHPDS 

yETHPOS 

,TFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

,T20S  , 

7TFIP0S 

yCNIFDS 

yETIPOS 

y  TFIPCF 

yCKIPCF 

yETIPCF 

yOHIPCF 

,T2iOS  , 

8TFLP0S 

tCNLPOS 

yETLPOS 

yTFLPCF 

,CNLPCF 

yETLPCF 

yOHLPCF 

,T220S  , 

9T240S 

yWFOOS 

yOTDUOS 

yETAOOS 

y NA230S 

yOPOUOS 

,OTOUCF 

,ETAOCF  , 

AT70S 

yHFAOS 

,OTAFOS 

yETAAOS 

,  HG6C0S 

yOPAFOS 

,OTAFCF 

y  E'TAACF  , 

BA55 

y  A2  5 

,A6 

,A7 

,A8 

,A9 

,A28 

y  A29  , 

CPS  55 
COMMON/ 

y  AM55 
FRCNT/ 

yCVONOZ 

yCVMNOZ 

yASSAV 

y A9SAV 

, A28SAV 

y  A29SAV 

1T1 

y  Pi 

.Hi 

.SI 

yT2 

,P2 

»H2 

,S2  , 

2T21 

,P21 

y  H21 

yS21 

»T22 

yP22 

y  H22 

y  S22  , 

3T3 

,P3 

y  H3 

,  S3 

»T4 

yP4 

»H4 

,S4  , 

4T45 

y  P4  5 

,  H45 

,S45 

,TS 

yP5 

y  H5 

yS5  , 

5T55 

,  P55 

,  H55 

y  S55 

yBLF 

yBLl 

,  BLC 

yBLOU  , 

6  CNF 

,PRF 

,ETAF 

y  HAFC 

y  HAF 

y  BLOUI 

y  BLOUC 

y  BLOB  , 

7CNI 

y  PR  I 

yETAI 

y  NAIC 

y  MAI 

yBLOBI 

y  BLOBC 

,  WA3  , 

8CNC 

y  PRC 

yETAC 

yNACC 

y  MAC 

,ETAB 

• DPCOM 

y  HG4  , 

9CNHP 

yETATHP 

yOHTCHP 

yOHTC 

yBLHP 

yBLHPI 

y  BLHPC 

»FAR4  , 

ACN  IP 

yETATIP 

yOHTCIP 

yOHTI 

y  BLIP 

yBLIPI 

,BLIPC 

yOUMF  , 

BCNLP 

yETATLP 

,OHTCLP 

,OHT* 

yBLLP 

yBLLPI 

y BLLPC 

j  CS  , 

CHG45 

y  FA  R45 

y  MG5 

yFA^  * 

y  NG55 

,FAR55 

yHPEXl 

.AM  y 

OALTP 

,ETAR 

yZF 

yPCN» 

»ZI 

yPCNI 

,zc; 

yPCNC  , 

EHF8 

y  TFFHP 

yTFFIP 

,TFFLP 

yPCBLF 

yPCBLI 

yPCBLC 

yPCBLOUI, 

FFC8L0UC,PC8L0BI,PCBL0BCfPCBLHPI,PCBLHPC,PCBLIPI»PCBLIPC»PCaLLPI, 
GPC BLLPC 

OATA  AH0R0/6HC0INLT / 

AJ=778.26 
G=32.i7404S 

AL T=ALTP*2  »0855531E*07/ (2*  0855531E+07-ALTP) 
CALL  ATHOS  (ALT, Ti ,XXi, XX2y  XX3yPl ,  CS ,  XX4,  HER) 
IF  ( I  AMP  .EC*  2)  T  1=T  1+T2 
IF(IAMTP.NE.i)  CALL  RAM<AM,ETAR> 

FAR=Q.Q 


IF(IAMTP.NE.i)  CALL  RAM<AM,ETAR> 

FAR=Q.Q 

CALL  FROCOMFAR,Tl,CSyXX2,XX3yRlyFHIl,Hl» 
Si =PHIi-Ri *ALCG (Fll 
H2=HiMAN*CS)**2/;2.*AJ*G> 

F2T=i. 


OO  2  1=1  ,iC 

CALL  THERHCIP2T,H2,T2T,S2T,AH,0,C.0,1) 
IF (A8S<S2T-S1I.LE.Q.0001*S1>  GO  TC  3 
P2T=P1*EXP<<  AH/1. 936375*  *US2T-SlM>tl. 
CALL  ERROR 
RETURN 


RETURN 
IF  (IAFTP.EG 


986375/AH**AL0G<P2T/Pi>  >) 


no  tiuto 
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P2  *ETAR*  P2T 

ZFCZAHTP.NE.4)  CALL  THERH0CP2, K2#T2 ,S2,XX5, C, 0.0,1) 
IFCIAFTP.E0.4I  CALL  THERHOCP2,H2,T2»S2,XX5»0, 0.0,0) 
IFCINIT.EQ.il  60  TO  6 
IFCZOES.EQ.il  GO  TO  4 
ZF CH00E.EQ.3t  GO  TO  5 

PC NF*6UE SS  CM COE ,T4, T40S , PCNC,PCNCOS,MFB,WFBD£ ,T2 , T20S ,PCNFOS ) 

PCNFGU*PCNF 

GO  TO  5 

PCNF*PCNFOS 

PCNFGU*PCNF 

T20S»T2 

2F«ZF0S 

RETURN 

END 


OOOOOOUOOOOUOOOOUOOOOOOO 


SUBROUTINE  ATMOS  (ZFT,  TM,  SIGMA,  PHO,  THETA,  DELTA,  CA,  AMU,  <> 
THIS  IS  A  SUBROUTINE  TO  COMPUTE  CERTAIN  ELEMENTS  OF  THE  1962 
U. S.  STANDARD  ATMOSPHERE  UP  TO  90  KILOMETERS. 

CALLING  SEQUENCE... 

CALL  ATNOS  IZFT,  TM,  SIGMA,  RHO,  THETA,  DELTA,  CA,  AMU,  K) 

ZFT  =  GEOMETRIC  ALTITUDE  (FEET* 

TM  =  MOLECULAR  SCALE  TEMPERATURE  (DEGREES  RANKINE) 

SIGMA  *  RATIO  OF  OENSITY  TO  THAT  AT  SEA  LEVEL 
RHO  *  OENSITT  (L3-SEC**2-FT** (-4)  OR  SLUGS-FT»*3> 
THETA  =  RATIO  OF  TEMPERATURE  TO  THAT  AT  SEA  LEVEL 

DELTA  *  RATIO  OF  PRESSURE  TC  THAT  AT  SEA  LEVEL 

CA  =  SPEED  OF  SOUND  (FT/SEC) 

AMU  =  VISCOSITY  COEFFICIENT  CLB-SEC/FT**2> 

K  -  1  NORMAL 

=  2  ALTITUDE  LESS  THAN  -5000  METERS  OR  GREATER  THAN  90  KM 
=  3  FLOATING  POINT  OVERFLOW 

ALL  DATA  ANO  FUNDAMENTAL  CONSTANTS  ARE  IN  THE  METRIC  SYSTEM  AS 
THESE  QUANTITIES  ARE  OEFXMEO  AS  EXACT  IN  THIS  SYSTEM. 

THE  RAOIUS  OF  THE  EARTH  (REFTS9)  IS  THE  VALUE  ASSOCIATED  WITH  THE 
1959  AROC  ATMOSPHERE  SO  THAT  PROGRAMS  CURRENTLY  USING  THE  LIBRARY 
ROUTINE  WILL  NCT  REQUIRE  ALTERATION  TO  USE  THIS  ROUTINE. 

DIMENSION  HB (10 i ,?M8(1Q) , DELTAB (10) , ALM (10) 

DATA(HBd)  ,I~1,10)/-5.,0«,11.,20.,32.,47«,52.  ,61.  ,79.  ,88.743/ 

DA TA (THB (I) fI»l,  10)/320. 65, 288. 15 ,216. 65, 216. 65, 228. 65, 270. 65, 

1  270.65, 252.55,180.65,180.65/ 

DATA (DELTA £«I) , 1*1,10* /l. 75363,1., 2. 232616-01,5. 4Q328E-02, 

1  6 .5 6663 E- 03,1. 094556-03,5*  82289E-04 ,1. 79718E-04, 1. 0241E-05, 

2  1.6223E-0E/ 

QA  T  A ( ALM (I) .1—1,10) / —6 .5,— 6.5,0. ,1. ,2. 8,3.,— 2*,  —  4  * ,0. ,0./ 

OATA  SEFT59/2. 08555316  07/,  GZ  /9.80665/, 

A  AHZ  Z28.9644  /,  RSTAfi  /8..31432/, 

9  FTTOKH/3* 348E-C4  /,  S  /U0.4  /, 

C  AHUZ  /l* 2024E-05  /,  CAZ  /1116.45/, 

0  RHOZ  /C. 076474  /,  GZENG  /32.1741/ 

C  CONVERT  GEOMETRIC  ALTITUOE  TO  GEOPOTENTXAL  ALTITUOE 
HFT  =  <REFT5S/(REFT59*ZFT> I  *ZF  7 
C  IGNVERT  HFT  AND  7FT  TO  KILOMETERS 
Z  =  FTTOKM*ZFT 
H  =  FTTOKM*HFT 
K  =  1 

THZ  *  TH8  (  2) 

IF  CH.LT .-5.0.OR .Z.GT.90.3)  GO  TC  16 

00  10  H-1,10 

IF  ( H-H8  (M ) )  11,12,10 

10  CONTINUE 
GO  TO  16 

11  *  -  H-l 

12  OELH  =  H-H8(M» 

IF  (ALM(H)  .EQ.Q  *  0)  GO  TO  13 
TMK  =  TMB(M)  ♦  ALM(M)  *OELH 

C  GRACTF.NT  IS  NCN  ZERO,  PAGE  18,  EQUATION  1.2.10-0) 


?«LIi  ?<. D£U*8(H)*(  <TMBCm/TMK)*M62*AM2/<RSTAR*ALH(M>))) 
go  to  m 

is  thk  *  inetn\ 

GRADIENT  IS  ZERO,  RAGE  10>  EQUATION  2.2*10*(4) 

..  55^}  *  OELTA8<IO»EXP{-GZ*AMZ»OELH/<RSTAR*THB<N>)> 

THETA  *  THK/THZ 
SIGH A  *  OELTA/ThETA 

ALPHA  a  SQRV <THETA**3)*  (  CTNZ+S)  /  (THK+S)  } 

CONVERSION  TO  ENGLISH  UNITS 
TH  *  i.8»THK 
RHO  *  RHOZ*SIGHA/GZENG 
CA  a  CAZ*SORT (THETA) 

AHU  *  AKU2 ♦ALPHA/G2ENG 
CALL  OVERPLfJK 

GO  TO  <15,17),  J 

15  K  *  K42 
GO  TO  17 

16  K  *  Z 

17  RETURN 
END 
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SUBROUTINE  COFAI. 
COMMON  /  ALL/ 
1HORO  >  IDES  >  JOES 


t  INIT 


1 

> 

g 

& 

2 IG ASMX* IOBURN9XAFTBN9IOCQ  ,INCD  « IOSHOC, IMSHOC ,NOZFLT 
3IT«YS,L00PER,N0MAP, NUHMAP, HAPEOG, TOLALL ,£RR (9 ) 
COMMON/OESIGN/ 

t 

« 

1PCNFGU 

* PCNIGU 

, FCNCGU 

,T4GU 

9OLKOI 

9OELFG 

9  DELFN 

,DELSFC 

jr 

2ZF0S 

t PCNFOS 

9PRFOS 

9ETAFOS 

9MAFOS 

9PRFCF 

,ETAFCF 

, MAFCF 

1 

3  21  OS 

jPCKICS 

9PRIOS 

#ETAIDS 

*  MAIOS 

9PRICF 

9ETAICF 

>  HAICF 

Am 

’1' 

4ZCQS 

, PC NCOS 

9  PRODS 

9  ETACOS 

9MACOS 

,PRCCF 

>ETACCF 

>  NACC  F 

*r-_ 

/i 

5T40S 

» HFBOS 

9OTCOOS 

9ETABOS 

9  N43C0S 

9OPCOOS 

9  OTCCCF 

,ETABCF 

r 

£r' 

6TFHPDS 

t CNHPDS 

9ETHPOS 

9  tfhpcf 

jCKHPCF 

>ETHPCF 

9OHHFCF 

9  T20S 

1 

?  IF  IPOS 

,CNIPCS 

,ETIP0S 

»  TFIPCF 

9CMPCF 

,ETIPCF 

9  OHIPCF 

>  T21DS 

1 

8TFLP0S 

t CNLPDS 

,ETLPDS 

9  TFLPCF 

,CNLPCF 

,ETLPCF 

, OHLPCF 

>  T22DS 

9T24QS 

f MFCOS 

, DTDUDS 

9ETADOS 

9  HA230S 

9OPOUOS 

9DTOUCF 

9ETAOCF 

1- 

AT7  0S 

y  MFAOS 

, DTAFOS 

, ETAAOS 

t KG6C0S 

9OPAFOS 

,DTAFCF 

,ETAA CF 

|~‘ 

sf 

1 

i 

BA55 

9  A25 

9A6 

#A7 

9  A  b 

9  AO 

9  A28 

,  A29 

CPS  55 
COMMON/ 

9  AM  55 
FRCNT/ 

9CVONOZ 

,CVMNOZ 

9  A8SAV 

,A9 SAW 

> A28SAV 

9  A29SAV 

1T1 

»H1 

•  Si 

»T2 

»P2 

t  H2 

»  S2 

r 

2T21 

,P2i 

,H21 

9  S21 

>T22 

>P22 

t  H22 

,  S22 

% 

3T3 

#P3 

,  H3 

,  S3 

»T4 

»P4 

,H4 

»S4 

p1- 

-f,,' 

4T45 

,  P45 

9  H45 

>345 

»T5 

»P5 

,  H5 

»S5 

i 

5T5  5 

,P55 

,H55 

9  S55 

>8LF 

>BLI 

9  BLC 

>  8LDU 

£ 

6CNF 

,PRF 

,ETAF 

9  HAFC 

.HAF 

9BLOUI 

9BLOUC 

9  BLOB 

| 

7CNI 

9  PR  I 

*  ETAI 

9  XAIC 

9  MAI 

9BLOBI 

9BLOBC 

>  MA3 

8CNC 

*FRC 

,ETAC 

9  WACC 

»M  AC 

9ETA8 

>  OPCGM 

9  MG4 

P 

9  ON  HP 

9  ET  AT HP 

t  OHT  CMP 

9  DHTC 

,8  IMP 

9BLHPI 

9  BLHPC 

,FAR4 

B 

ACN  IP 

9  £T  ATIP 

9OHTCIP 

9  DHTI 

,BLIP 

9BLIPI 

9  BLIP- 

,OU«F 

P 

BCNLP 

9  ET  ATLP 

, DHTCLP 

»OHTF 

98LLP 

»BLLPI 

98LLPC 

,CS 

K; 

CKG45 

9  FAR45 

9  NG5 

,FAR5 

>HG55 

,FAR55 

,HPEXT 

>  AM 

p. 

DALTP 

9  STAR 

♦  ZF 

1 PCNF 

.zx 

9PCNI 

,Z  C 

,  PCNC 

K*- 

EHFB 

9  TFFHP 

,TFFIP 

>TFFLP 

9PC8LF 

9PC8LZ 

, PC8LC 

,PCBLDUI 

p 

FPC8L0UC 

GFCBLLPC 

,PCgLC8I 

,PC6L9BC 

9  PCB1.HPI  »PCBLHPC 

,PCBLIPI,PC8LIPC9PC3LLPI 

NC  N,  NPT  ( 15  i 
DIMENSION  KLH<2> 

QATA  AWQRQ # WLK/6M  COFAN*  fcH  (LO)  ,6H  IHXI  / 
XORQ=AHQRO 

TMF.TA=SQRT  IT  2/518. 6681 
IF  ( IQ£S<,N£  .11  GC  TO  10 
7H  ET  A  D=T  HE  TA 
CHF'-PCNF*TMgTAO/Ci 
IF(ZF.Lr.Q.I  2F*U, 

jr  f  t  r  r- -v  ^ 


151  , 


10CG 


130, ♦THETA) 

i«.i  ,».i  »«»»  iF*0. 

..  <Z  F  «GT  »1»)  ?F-1. 

CNFS-CNF 

CALL  SEARGH<Zf ,CNF>PRF,HAFC,ETAF, 

CNX<U,NCN,PRXC1,1)  ,WACX  U  >11  »ETAm*l»  fNPT  <1  i  ,15,3  5 ,  IGQ) 
If flCNF-CNFS) .GT.0,02C‘5*CNF)  MAPECG*! 

IFIIGC.EQ. 1.0R.1G0.E0.2I  NRiTE<S» 1000)  CNFS»NLHJIGO> 

FORHATUSHfl*  *  *  CNF  OFF  M4?TFiO*<»»2XA6#iiH*  ♦  »$*tS$S> 

*AF*KAFC*P2/TFETA 

iraoES.NE.il  GO  TO  1 

Ff?FCF-CPRFCS'*l.l/IPftF»l.l 


£1  AFCf-LTAfl'S/fcUF  & 

NAFCF=NAFOS/WAF  f 

WRITE  <6, 10  G* FRFCF,ETAFCF ,WAFCF,T2CS  § 

100  FORMATdlHOFAN  DESIGN, 13X8H  PRFCF*,E15 .8, 8H  ETAFCF  = » £15 »  8 » 

18H  NAFCF*  ,E15.  6»8H  T20S* ,  E15.  8 ) 

1  PRF*PRFCF*<PPF-1.H-1. 

ET  AF*£TAFCF*E  TAF 

HA  F«WIFCF*HAF 

CALL  THC0HP(FRF,ETAF,T2,H2,S2,P2,T21,H21,S21,F21) 

IFIPCBLF.GT.O.)  BLF*PCBLF*WAF 
IFUOES.EG.l)  GO  TO  7 
J0ES  =  1 

IF (INTT.EQ ,1 )  GO  TO  6 
IF (IDES. EG *1)  GO  TO  A 
IFIN00E.NE.2)  GC  TO  2 

T4*GUESS  ?3  ,Y1,Y2,PCNF,PCNFDS,HFB,HFBDS* Y?*Y8»T4DS) 

PCNI»GUFSS (6 ,T4,Y4DS,Y3 , Y4 , Y5, Y6, T21, T210S ,PCNIDS) 

PC  NC*  GUESS  14  i Yl, Y2, PCNF ,PCNF0S,HF8,HFB0S,Y7 ,Y8,PCNCDS) 

GO  TO  5  '• 

2  IFCNOOE.EQ.D  GO  TO  3 

IF (MOGEa  EQ  .0)  GC  TO  20  ' 

Y4*GUESS (7  ,Yl,Y2;rCNF,PCNF0S,Y5,Y6,T2,T20S,T40S) 

2fi  PC NC* GUESS (5  »T4, Y40S,Y3, Y4* Y5, Y6 » T21,Y21DS , PCNCDS) 

PCNI*GUESS  <9,Y1,Y2,PCNC,PCNCDS,Y5,V6,Y21,Y210S,PCNIOS>  ' 

GO  TO  5 

T  T4*GUE?.S(S,Yl,V2,PCNC,PCNC0S,Y5,Y6,T21,T2iDS,T40SJ  \ 

FCNI*GUESS C8,T4,T40S,Y3,Y4,Y5,Y6,T21,T  210S , PCNIOS)  » 

GO  TC  5 

4  PCNC*PCNCQS 
PCNIsPGNIOS 
f4  *T  4CS 

HFE*Hf0OS  1 

T2iuS*T21  * 

5  ZC  =ZCQS 
ZI*ZICS 
F€NIGli*PCNI 
PCNCGU=PCNC 
T4GU*T4 

6  INXT*0 

7  IF  (MODE*  NE  »c)  GO  TO  8 

IFCABS(CNF»Cr<FS)  *LE * G . 0 0 1*CNFS >  GO  TO  9 
WRITE  C8,2000ICNFS, CNF 

2000  FORNA7 (10H0GNF  WAS*  ,E19,8,UH  AND  NOW*  ,E15*8, 

124H  CHECK  PCNF  INPUTSSESSI) 

CALL  ERROR 

8  pcnf*ioo.*theta*cnf/thetao 

9  CALL  COINTC 

REWRN 
END 
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SUBROUTINE  CCINTC 
COMMON/  Ail/ 

S.HO  RO  *  ICES  ,  JOES  fXOES  j-MOCE  ,IMIT  ,IOUHP  ,IAMT  P  , 

2  XG  ASMX,X08l)RN,IAFTSN,IDCO  ,ZMCO  , XDSHGC, IHSHOC , NOZFLT f 

3  IT RYS  ,LOQP£R , NQHAP, NUMHAP, MAPEOG, TOL ALL , ERR ( 9 ) 

COMMOfi/OES  IGN/ 


1PCNFGU 

,  FCNIGU 

,FCNCCO 

,  74GU 

> OlHOl 

,0ELF6 

,  Oci.F  N 

,  0EI.SFC 

. 

2  2FOS 

,  PC  HF  CS 

, PRF OS 

.ETAFOS 

, MAFQS 

,PflFCF 

,ETAFCF 

, MAFC  F 

i 

3  21  OS 

, PCHICS 

■,  PRIOS 

, ET  AIDS 

,  MAZOS 

,PRICF 

,ETAICF 

rKAICF 

> 

4ZC0S 

, PC NCOS 

, PRC  03 

yETACOS 

, MACDS 

fPRCCF 

,ET  ACCF 

, MACC  F 

> 

5  T4  OS 

,wreos 

rOTCOQS 

tETABOS 

,  M A3C0S 

,opcoos 

jOTCOCF 

, ETAECF 

r 

6TF  HPOS 

,CNHP0S 

•ETHPOS 

, TFHPCF 

,CNHPCF 

,E1  HPGF 

,OHHPCF 

,T20S 

* 

7  TF  IPOS 

,CNIPOS 

sEYIPUS 

, TFIPCF 

,CMPCF 

,CTIPCF 

,DKIPCF 

, TciOS 

i 

8TFLPDS 

,CNlPO$ 

,ETLPCS 

,TFLPCF 

jCMLPQF 

»ETLPCF 

,DULPCF 

,T220S 

9T240S 

,  HF  (103 

, CTOUOS 

•ETAD3S 

,  M A23DS 

yOPCUDS 

,0TDUCF 

,ET  AOCF 

A  17  OS 

, MF  AOS 

•OTRFOS 

, ET AAOS 

, MG6C0S 

,QPAFD3 

,DTAFCF 

,  ETAAO 

BAS  5 

,A2  5 

,A6 

» A7 

*A8 

»A9 

,  A26 

s  A29 

CPS  55 
COMMON/ 

,  AM55 
FRONT/ 

♦CVDN02 

, CVMNOZ 

,  A8SAV 

, A9SAV 

, A28SAV 

, A29S«V 

1T1 

,P1 

.HI 

,S1 

»T2 

»P2 

,  H2 

,S2 

2T21 

,P2t 

,H21 

,S?1 

,T22 

,P22 

»H22 

,  S22 

3T3 

»P3 

,H3 

,  S3 

»T4 

»P4 

,H4 

,S4 

1 

4T4  5 

,P4  5 

,H45 

,  S45 

sT5 

»P5 

»H5 

»S5 

) 

5T5  5 

,e  5  5 

,H55 

,S55 

,  9LF 

,  BLI 

,  BLC 

,  8L0U 

? 

6  CNF 

,  PRF 

,ETAF 

,  MAFC 

«  M  AF 

,BLDUI 

, BLOUC 

,  BLOB 

1 

7CN  I 

,  PR  I 

,  ETA  I 

,  MAIC 

,  MAI 

, BLOBI 

, BL08C 

,  WA3 

8CNC 

,  PRC 

,ETAC 

,  MACC 

,  M  AC 

,ETAB 

, OPCCM 

,  WG  4 

• 

9  CN  HP 

, ET  AT  HP 

jOHTCHP 

,  OMTC 

,BLHP 

,8LHPI 

, BLHPC 

,  FAR4 

ACNIP 

,  ET  AT  IP 

, OHTCXP 

,  OHTI 

,  BLIP 

, BLIPI 

, BLIPC 

,  OUHF 

, 

BCNLP 

,  ET  AT  LP 

,OHTCLP 

,OHTF 

,  fiLLF 

, BLLPI 

, 8LLPC 

,CS 

» 

CNG45 

, FAR45 

s«65 

,  FAR5 

,MG55 

,FAR55 

, HPEX  T 

,  AM 

OAL  TP 

,  ET  AR 

1 2F 

,  PCNP 

vU 

,PCNI 

»ZC 

,PCNC 

EWFB 

,TFFHP 

,TFFIP 

, TFFLP 

,PC8LF 

,  PC8LI 

, PCBLC 

jPCBLC j , 

♦ 

F Pc  31  DUG 
G  PC  BLLFC 

, PC8LCBI 

) PC8L0BC 

, PCBLHP’ 

,PCBLHPC 

,PC8LIPI 

,PC8LIPC 

,PCBLLC  ~ 

* 

COrtMON/IPHf /MA22 

COMMON/  INT/CNXiJ5) ,PRX <15 , 155 , M ACX <15 ,15 1 , ETAX (15, i 5) , 

1 NC  N, NPT ( 15 ) 

DIMENSION  MLH  (2 ) 

DATA  AWORO ,HLH/€MC0INTC,6H  <LO>  ,€H  (HI)  / 

HO  RU  -  AHQRO 

TH  ET  A  =  SQRT (T21/518.668) 

IF  (IOES.NE.1)  GO  TC  10 
’MET  AG- THETA 

10  CNI--PCNl*THETAO/  (100. ♦THETA) 

IF(ZI.LT.O.)  ZI  =  Q. 

IF  <21  .uT .1  •)  21=1. 

CM  IS  =  CNI 

CALL  SEARCH  ( ZIf  CNZ(PRX  i  M«IC»ETA?.» 

ICNX(l) ,NCN  ,PRX(1,1> ,WACX  (1,11, ETAX (1,1), NPT  Cl> ,15,15, IGO) 
IF  ( (CNI-CNIS) .GT . «0  005#CNI)  NAPEOG=l 
IF (IGC.EO. l.Ofi. IGO.EQ.2)  HRITE(0,1QQO>  CNIS ,  WLH ( J GO) 
luQO  FTiRMAT  (19H0*  ♦  ♦  CNI  OFF  MAP,  F10  .4 , 2XA6, 11H*  *  ♦$$$$$$> 
HAI  =  HAIC»P21/THETA 
IF  tlOtS.Nt  .1)  GO  TO  ’ 
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PRICFs{PRIOS«'l.>/<PRI-l.) 

£TAICF=£TA20S/ETmI 

WATCPrUATH<s/kAT 

WRITE (6* 10  0) PRICFfETAXCF  * UAICF  »T210S 
100  FORHAT  S23H0I.P.  COMPRESSOR  0ESIGN»1X8H  PRICF* ,E15. 8 , 8H  ETA IC 
1E1$«  8  »8H  WAICF  =  »F15o8> 8H  T210S* jE15. 8) 

1  PRT»PRICF*|Pfil-l.>U* 

£T  AI*£TAICF*£TAX 
WAI*WAICF*WAI 

CALL  THC 0MP(PRI,ETAI,T21»H21»S21»P21»T22»H22»S2EjP2E> 

XF(IOES.EQ.l)  T22D5-T22 

IF  CPC8LI  .GT. 0)  BLI*PC8LI*WAI 

WA22*WAX-BLI 

BL0UZaPCBLCUX*8LI 

8LHPI»PCBLHPI*8LI 

BLlPIsPCBL  XPI^BLX 

8L08I=PCBLCB1*BLI 

PCNI«100  #*TKETA*CNI/TMETAO 

CALL  COCCMP 

RETURN 

ENO 


SUBROUTINE  CCCOMP 
COMMON  /  ALL/ 

iWORO  ,IOES  » JOES  ,KOES  ,MODE  »INIT  ,IOUHP  ,IANTP  , 
2  IG  ASMX,  IOBL'RN,  2  AFTBN,  IDCO  ,IMCD  ,  ID$HOC,IHSKOC,NOZFIT  , 
3 ir  RVS ,LOOPEP,HOMAP, NUMMAP,MAPEDG, T0LAIL,ERR(9> 

CO rtMQN/OES ZGN/ 


1FCNFGU 

pPCNIGU 

, PCNCGU 

,  T4GU 

•  DUMOl 

,OELFG 

, DELFN 

,3£LSFC 

2ZF0S 

,PCNFCS 

, PRFOS 

, ETAFOS 

, WAFDS 

,PRFCF 

,ETAFCF 

,WAFC f 

3ZI0S 

, PC  NIOS 

, FRIGS 

,ETAIOS 

, MAIDS 

,PRICF 

,ETAICF 

, NAIC  F 

4ZCDS 

, PC wees 

,PRCOS 

, ET  ACOS 

,  N ACOS 

,PRCCF 

,ETACCF 

, WACC  F 

5T4QS 

, WFBOS 

, CTCCDS 

, ETABOS 

,M43C0S 

,DPCODS 

•OTCOCF 

, ETA8CF 

6  TFHPOS 

,CNHPCS 

jETHPOS 

, TFHPCF 

,CNHPCF 

,ETHPCF 

, OHHFCF 

,T20S 

7  TF  IPOS 

,CN IPOS 

,£TIPOS 

, TFIPCF 

,  CHIPCF 

,ETIPCF 

,OHIPCF 

, T210S 

8TFLP0S 

, CNLPOS 

,ETLP0S 

,TFLPCF 

,CNLPCF 

,ETLPCF 

, OHLPCF 

, T220S 

9T2  40  S 

, HFCCS 

,  OTOUOS 

, ET  ADOS 

, MA230S 

,OPOUOS 

, OTDUCF 

, ETAOCF 

AT7  0S 

,  MFADS 

, OTAFOS 

,ET AAOS 

,  HG6C0S 

,OPAFOS 

,OTA FCF 

, £1 AACF 

BA55 

,425 

,A6 

»A  7 

,A8 

*A9 

,  A28 

,429 

CPS  55 

COMMON/ 

,  AN55 
FRONT/ 

, CVONOZ 

, CVMNOZ 

,  A8SAV 

, A9SA V 

pA28SAy 

, AC9S  A V 

111 

»P1 

t  Hi 

,S1 

»T2 

*P2 

,H2 

,S2 

2T2.1 

,P21 

,H21 

,  S21 

,  T22 

,P22 

,  H22 

,S22 

3T3 

» P3 

,H3 

,  S3 

» T4 

,P4 

,H4 

fS4 

4T4  5 

,P4  5 

,  H45 

» S45 

»T6 

»P5 

»H5 

1 35 

5T5  5 

,  P55 

,H55 

,  S55 

,8LF 

,BLI 

,  BLC 

,  0LDU 

6  CNF 

,  FR  F 

,ETAF 

,  WAFC 

,  W  AF 

,3LDUI 

, 6L0UC 

,  BLOB 

t  CN  I 

,  PR  I 

,ETAI 

,  WAIC 

,HAI 

,  BLOB I 

, BLOBC 

,  WA3 

8  CNC 

t  PRC 

,£TAC 

tWACC 

,  N  AC 

,£T  AB 

, QPCGH 

,  WG4 

9CNHP 

.ETATHP 

,OHTCHP 

,  OHTC 

,  BLKP 

,  BLHPI 

, BLHPC 

» FAR4 

ACNIP 

, ET  ATIP 

,  OHTCIP 

,  OHTI 

,BLIP 

jBLIPI 

, 8L IFC 

,OUMF 

3CNLP 

, ET  ATLP 

.OHTCLP 

,OHTF 

,BLLP 

,BLLPI 

, BLLPC 

fCS 

C  WG45 

SFAR45 

,  WG5 

,FAR5 

,  WG55 

,FAR55 

, HPEXT 

,  AM 

GAL  TP 

,  ET  AR 

»ZF 

,PCNF 

,ZI 

,PCNI 

fZC 

,  PCNC 

EWF0 

, TF  FHP 

,  TFFIP 

fTFFLP 

,PCBLF 

,PC8LI 

, PCBLC 

, PC8L  DU . 

r  PC 8t.0UCfPCCLC8IfFCBL08C,PCBLHPI,PCBLHPC,PCBLIPI,PCBLXPC,PC9LLP! 

G  PC  9LLFC 

COMMON/IPHP/M2  2 

COHMCN  /  C0MP/CNXU5)  ,PRX(15,15>  ,WACX(15,15)  ,ETAX(15,15)  , 
1  NCN,  NFT(15> 

DIMENSION  ULHfZt 

DATA  AW0RQtWLH/6HC0C0HP,6H  (LO)  ,6H  (MI)  / 

MO  RO  -  AWGRO 

TMETA=SQRT  (122/518.688) 

IF(IOES.NE.l»  GC  TO  10 
THET  AO=T  HE  TA 

10  CNC--PCNC*TFETAD/(10  0.*THETA> 

1F(ZC.LT,0.)  ZC  =  0. 

IF  (ZG.GT  .1.)  ZC  =  1, 

CNCS=CNC 

CALI  SEARCH (ZC, CNC,  PRC,  NACC, ET AC , 

ICNX(1>  ,NCN,PRX(1,1> fUACX(lfl> VETAX(1»1> ,NPT ( 1 ) , 15 , 15 , IGO) 
IF 'HOOE.EQ.l)  GO  TO  1 
IF  (CCNC-CNCS) .GT.O.  000 5* CNC)  HAPECG=1 
1  IFdGO.EO.  1.CR.IG0.EQ.2)  WRITE (8 , 10  GO)  CNCS ,  WLH  ( IGO) 

1000  FORMAT  (19H  0*  *  *  CNC  OFF  MAP,  F10  .4 ,  2XA6, 11H*  ♦  »S$SSSS) 
WAC  =  WACC*P  22/THETA 
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100 


2000 


IF(IOES.NE.l)  GC  ro  ? 

HA  COS-HA  22 

PRCCF*  (PRCOS-l. ) /(PRC-1. ) 

ET  ACCF*ETACQS/ETAC 
HACCF-KACOS/HAC 

K^ITE  <6, 10  0» PRCCF#ETACCP*KACCF  »T22DS 

FORMAT (23H0H«®«  COMPRESSOR  DE5IGN,1X8H  PRCCF*,E15.8,8H  ETACCF- 
1E15.S,8H  KACCF=,E15.8,8H  T220S^ ,E15. 8> 

F«C*PRCCF*  (PRC-i.»4l. 

ET  AC*ETACCF*ETAC 
NAC*HACCF*HAC 

CALL  THCCiMP<PRC,ETAC,T22,H22,S22,F22,T3,H3,S3,P3) 

IF  (PC8LC.GT.0.)  8LCSPCBLC*HAC 

HA  3*HAC-8LC 

9L0UC*PC8L  CUC*BLC 

8LHPC*PC8L  HPC*8LC 

8L IPC*PC8L  IPC*BLC 

BLLPC*PCBLLPC*Bl.C 

8L0BCsPCBL08C*BlC 

"•  nuaeLO(Jl4BLOUC 

&HP*BLHPI4BLHPC 

0L IP*BLIPI 48LIPC 

8LLP*8LLPI*BLLPC 

fL08*BLC8l4BLC8C 

IF (MQOE.NE  .1)  GO  TO  3 

IF (ABS(CNC-CNCS) *LE . 0. OOl^CNCS)  GO  TO  4 

HRITE(8*  20  00)  CNCSsCNC 

FO RNAT (1QH0CNC  HAS*  *Eiy.8,UH  AND  NOM=  ,E15.8, 

124K  CHECK  PCNC  INPUTfSSJSf) 

CALL  ERROR 

PCNC*100 .*THETA*CNC/THETAO 

ERRC7)= (HAC-HA22)/H AC 

CALL  COCOMe 

RETURN 

ENO 
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SUBROUTINE  CCCOHB 
COMMON  /  ALL/ 

1NORO  » IO£S  ,JOES  *KOES  ,MOOE  ,INIT  ,IOU*P  ,IAPTP  , 
2  IGASMX,IC8URN,IAFTBN,I0C0  »IMCC  y IOSHOCy IMSHOC yNOZFLT , 


3  IT  RYS  »L COPER » NON AF, NUMMAP, M APEOG y  TOLALL 
COMMON/OESIGN/ 

,ERR ( 9 ) 

1PCNFGU 

, PCNIGU 

,FCNCGU 

y  T4GU 

yOLHOl 

yOELFG 

yOELFN 

yDELSFC 

2ZF0S 

yPCNFOS 

yPRFOS 

yETAFOS 

y  MAFOS 

,PRFCF 

yETAFCF 

yHAFCF 

3ZIOS 

t  PCNICS 

rPRIDS 

yETAXOS 

yHAIOS 

yPRICF 

yETAICF 

,HAICF 

4  ZC  OS 

t  PCNCCS 

,  PRC  OS 

yETACOS 

yMACOS 

yPRCCF 

yETACCF 

i HACCF 

5  T4  OS 

tNFBOS 

,CTCODS 

yETABOS 

y  HA3C0S 

yOPCOOS 

yOTCOCF 

yETABCF 

6TFHP0S 

yCNHPCS 

,ethpos 

y  TFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

,T20S 

7  TF IPOS 

♦CNIPCS 

yETIPOS 

y  TFIPCF 

yCNIPCF 

yETIPCF 

yOHIPCF 

, T210S 

8TFLP0S 

• CNLPCS 

,ETLPOS 

y  TFLPCF 

yCKLPCF 

yETLPCF 

yOHLPCF 

» T22DS 

9T240S 

yNFOOS 

,  CTOUOS 

yETAOOS 

y  M  A230S 

yOPDUOS 

yDTOUCF 

,ETAOCF 

AT7DS 

t WF  AOS 

t CTAFQS 

yETAAOS 

y  HG6C0S 

,OPAFOS 

yDTAFCF 

yETAACF 

BA55 

.  A25 

»A6 

y  A7 

yAfi 

,A9 

,A28 

,A29 

CPS  55 
COMMON/ 

t  AH55 
FRCNT/ 

, CVDNOZ 

yCWMNOZ 

,AeSAW 

> A9SA V 

y  A28SAV 

, A29S AV 

1T1 

,Pi 

♦  Ml 

y  Si 

y  T  2 

yP2 

,H2 

yS2 

2T21 

» P21 

y  H21 

,  S21 

,  T22 

yP22 

y  H22 

yS22 

3T3 

,P3 

,H3 

,  S3 

*T4 

yP4 

y  H4 

yS4 

4T4  5 

,P45 

y  H45 

yS45 

yT5 

yP5 

y  H5 

yS5 

5  T5  5 

,F55 

y  H55 

y  S55 

»BLF 

yBLI 

ySLC 

yBLOU 

6  CNF 

»  PRF 

y  ETAF 

yWAFC 

yMAF 

yBLDUI 

, BLDUC 

y  BLOB 

7  CN I 

y  PR  I 

yETAI 

yWAIC 

y  HAI 

yBLOBI 

yBLOBC 

y  HA3 

8  CNC 

» PRC 

,ETAC 

y  RACC 

y  N  AC 

,ETAB 

yOPCOM 

y  HG4 

9CNHP 

»  ET  AT  HP 

,OHTCHP 

yOHTC 

yBLHP 

yBLHPI 

y  BLHPC 

,FAR4 

ACNIP 

y  ET  AT  IF 

yOHTCIP 

yOHTI 

y  BLIP 

yBLIPI 

y  BLIFC 

yOUMF 

bcnlp 

,ETATLP 

yOHTCLP 

yOHTF 

yBLLP 

yBLLPI 

yBLLPC 

yCS 

CNG45 

»  FAR45 

,HG5 

y  FAR5 

y  HG55 

,FAR55 

yHPEXT 

,  AM 

OALTP 

t  ET  AR 

yZF 

yPCNF 

yZI 

,PCNI 

yZC 

yPCNC 

EMFB 

,tffhf 

, TFFIP 

yTFFLP 

yPCBLF 

yPCBLI 

yPCBLC 

yPCBLDUI 

FPC  BLDUC 
GPC8LLPC 

,PCBLCBI 

y PCBLCBC 

y  FCBLHP3 

, PCBLHFC 

yPCBUFI 

yPCBLIPC 

yPCBLLPI 

COMMON  /  C0Me/PSI<15>,0ELT<15,15>  ,ETAU5,15>  yNPSyNPT  <15> 
CIMENSION  G(9lyCUMBOI15yl5» 

DATA  AWORO/6HCOCOMB/ 

HORD  =  AWORO 

0(2) =0. 

Q( 3) =0. 

P3PSI=14.696*P3 
WA3C=HA3*$CRT(T3)/P3PSI 
IF (IOES.EQ.l)  W A3C0S=WA3C 
OPCOM=OPCOCS*  (M A3C/HA3C0S) 

IF  50PC0M  ,GT.  1  •)  OPCOMsl. 

P4  =P3Mi  .-CPCOM) 

1  IF  (T4.GT.3S9S.)  T4=3999. 

IF  (T4.GE.1000.)  GO  TO  2 
T4  =  1QG0. 

IF (MOCE.EQ.l)  MAPEOG=l 

2  CTC0=T4-T3 

IF  (IOES.NE.1)  GC  TO  3 
GTCOCF=OTCCDS/OTCO 

3  CTCO  =  CTCOCF*CTCC 
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1 

F3PSIN=P3PSX 

CALL  S£ARCH<-1. ,P3PSIN,0TC0,ETAB,CUMMY, 

IPS  I(1)»NPS»0ELT,(1»1>  (ETA  (1 , 1) , DUHEO  U,  1)  ,NPT  (1) ,  15s15,  IGO) 

IF (IG0*EQ* 7)  CALL  ERROR 

4  IF  (IOES.NE.il  60  TO  5 
ETABCF*ETABOS/ETAB 

5  ET  AB*ETABCF*ETAB 

HVs(((<((-.*5943i7E-i9*T4>-.2034116£-15>*T4».2783643E-ll>*T4 
1  205150 i£ *07 )*T4-.  2453116E~O3)*T4-«9433296E~01)  *T4*.i845537E  +  Gi. 

CALL  THERM 0( P4*  HA»T4*XX1 »XX2»  0 » 0 . G»  0) 

FAR4*  (HA-H3I  /  (HV*ET  AB> 

IF CFAR4.LT .0.)  FAR4xO. 

NFBX*FAR4*RA3 
IFCM00E.NE.2)  GO  TO  8 
ERRM*(MF8-MFBX)/HFB 
0IR*S0RT  (HFB/MFBX) 

CALL  AFQUIR(G(lJ,T4f£RRH,O.,20.,O.O0Ol,OIR,T4T,IGO> 

GO  TO  <6t9»7),XG0 

6  T4*T4T 
GO  TO  1 

7  CALL  ERROR 

6  hFBsHFBX 

9  CALL  THERM0<F4,h4,T4,S4, XX2, 1, FAR*, 0> 

HG4*HFB4HA3 

IF(IOES.EQ.l)  WRITE (6,100)  HA3C0S ,ETABCF,OTCOCF 
100  FORMAT (17HOCOHBUSTOR  DESIGN, 7X8H  *A3C0S*,E15. 8, 8H  ETABCF=,£15.8, 
18H  OTCOCF=,E15.e> 

CALL  COHPTB 

RETURN 

ENO 
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SUBROUTINE  C0HPT8 
COMMON  /  ALL/ 

1HORO  .IDES  > JOES  ,KDES  ,MOOE  ,INIT  ,IOUNP  , IAMTP  , 
2 IG ASMX.IOBURN. IAFTBN.IOCO  ,IMCD  , IOSHOC, IMSHOC ,NOZFLT , 
3  IT RYS  .LOOPER ,NOPAP, NUHMAP.MAPEOG, 10LALL.ERR (9) 

COMNON/OES 1GN/ 


1PCNFGU 

,  PCNIGU 

. PCNCGU 

,  T4GU 

.OUHOl 

.OELFG 

, OELFN 

. DELSFC 

2ZF0S 

, PC  NFCS 

.PRFOS 

tETAFOS 

.WAFOS 

.PRFCF 

.ETAFCF 

.HAFCF 

3ZIOS 

, PC  NICS 

, PRIDS 

, ETAIOS 

.MAIDS 

.PRICF 

.ETAICF 

, HAIC  F 

4ZC0S 

.PC NCOS 

.PRCOS 

.ETACOS 

, MACDS 

.PRCCF 

.ETACCF 

, WACC  F 

5T4  0S 

.wFeos 

.  OTCOOS 

.ETABOS 

» WA3C0S 

.DPCODS 

.OTCOCF 

,ETABCF 

6TF  HPOS 

.CNFPOS 

.ETHPOS 

. TFHPCF 

.CNHPCF 

.ETHPCF 

. OHHPCF 

,T20S 

7  TF  IPOS 

, CN IPOS 

.ETIPOS 

. TFIPCF 

.CNIPCF 

.ETIPCF 

, DHIPCF 

.T21DS 

8TFLP0S 

. CNLPCS 

»ETLPOS 

. TFLPCF 

.CNLPCF 

.ETLPCF 

, DHLFCF 

.T22DS 

9T2  4DS 

,  MFCQS 

,  CTDUDS 

.ETAODS 

,  WA23DS 

.OPOUOS 

.OTOUCF 

.ETADCF 

AT7DS 

, HFAOS 

.OTAFOS 

.ETAADS 

,  WG6C0S 

.OPAFOS 

.OTAFCF 

.ETAACF 

BA5  5 

,  A25 

.  A6 

»A  7 

,A8 

»A9 

,  A28 

»A29 

CPS  55 
COMMON/ 

>  AM  55 
FRONT/ 

.CVDNOZ 

, CVMNOZ 

,  A8SAV 

,A9SAV 

. A28SAV 

.A29SAV 

1T1 

»P1 

#H1 

.SI 

*t2 

»P2 

,H2 

»S2 

2T21 

,P21 

*H21 

»  S21 

.122 

»P22 

,  H22 

,S22 

3T3 

»P3 

«H3 

.S3 

tT4 

*P4 

*  H4 

»S4 

4T4  5 

,  P45 

,  H45 

»S45 

»T5 

iP5 

»H5 

,S5 

5T5  5 

,  P55 

,  H55 

»  S55 

,BLF 

(BLI 

» BLC 

,  BLOU 

6  CNF 

,PRF 

,ETAF 

»  MAFC 

»MAF 

.BLDUI 

.BLDUC 

.BLOB 

7  CN  I 

,  PR  I 

.ETA  I 

.  WAIC 

.MAI 

.BLOBI 

»  BLOBC 

,  WA3 

8  CMC 

»  PRC 

.ETAC 

yWACC 

.MAC 

,ET  AB 

.OPCOM 

,  HG4 

9  CNHP 

.ETATHP 

.OHTCHP 

,  OHTC 

.BLHP 

,8LHPI 

.BLHPC 

,FAR4 

ACNIP 

.ETATIF 

.OHTCIP 

*0HTI 

.BLIP 

.BLIPI 

, BLIPC 

,DUMF 

BCNLP 

,etatlp 

.OHTCLP 

.  OHTF 

,bllp 

. BLLPI 

. BLLPC 

,cs 

CWG45 

,  FAR45 

,  HG5 

,  FAR5 

,  MG55 

.FAR55 

. HPEXT 

.AM 

OALTP 

,ETAR 

,ZF 

.  PCNF 

>ZI 

,PCNI 

»zc 

,PCNC 

F.HFB 

, TF  FHP 

.TFFIP 

, TFFIP 

»PC9LF 

.PCBLI 

, PCBLC 

,PC8LCUI 

FPCBLOUC 

GPCBLLFC 

,PC BLOBI 

, PCBLOBC 

.PCBLHFI 

.PCBLHPC 

. PCBLIFI 

, PCBLIPC 

, PCBLLPI 

COMMON  /HTLRB/TFFX(15),CNX(15,15) ,OHTCX (15 , 15) ,ETATX ( 15, 15)  , 

1  NT  FFS  ,NPTT  FF (15) 

DATA  AWCRO.MLC, MHI/ 6HC0HPT 8 » 6H  ( LC)  ,6H  (HI)  / 

HO  RO  =  AHORO 

IF  (IOES.EQ.O)  GO  TO  1 
CN HPCF=CNHF0S*SQRT(T4)/PCNC 

1  CNHP=CNHPCF*PCNC/SQRT(T4> 

CNHPS=CNHP 

TF  FHPS=T  FF  HP 

CALL  searcm-i.  ,TFFHP,CNHP,OHTCHP,ETATHP, 
1TFFX(1),NTFFS,CNX<1,1)  ,OHTO((1,1>  .ETATX(l.l)  . NPTTFF ( 1)  ,15,15,1. 
IF (IGO.EQ*  1. CR.IGO.EQ.il. OR. IGO.EQ. 21)  WRITE (8,1000) TFFHPS, HL 
IF (IGO.EQ.  2. OR. IGO.EQ. 12. OR. IGO.EQ. 22)  WRITE (8, 10G0) TFFHPS, WH I 
IF  (IGC.EQ. 10. OR.IGO.EQ.li. OR. IG0.EQ.12)  WRITE  (8,2000 )  CNHPS, WLG 
IF (IGO.EQ*  20.CR. IGO.EQ. 21# OR. IGO.EQ. 22)  WRITE (8, 2000 )  CNHPS,  WHI 
1000  FORHAT(19H0*****TFFHP  OFF  MAP,F10.4,2XA6,UH****MmSJ) 

2000  FORMAT (19H  O’****  CNHP  OFF  HAP,F1Q.4,2XA6,11H*****$* till) 

IF (IGO.NE. 7)  GO  TO  3 

2  CALL  ERROR 
RE  TURN 
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MAPGO-O 

IF  (ABSCT FFHPS-TFFHP) «L£«  0«  Q01*TFFHPS)  GO  TO  4 
MAPG0=1 

IF <ABStCNHPS-CNHP) .GT.O. 0Q1*CNHPSI  HAPG0*3 
GO  TO  5 

IF (ABSfCNHPS-CNHP) • GT.O . 00i*CNHPS>  MAPG0=2 

IFCHAFGO.GT.OI  CALL  NAP8AC(i,NAFGC,TFFHPS,TFFHP,CNHPS,CNHf->,PCNC , 
1 T4  tH00E»  NOFAPy NUHHAP) 

IF (N0HAP*GT* 0 )  RETURN 
TFHCAL*HG4*S0RT<T4)/(14.696*P4) 

BTUEXT*0.706705*HPEXT 
QHTCC*{BTUEXTfHAC*( H3-H22I ) / <WG4*T4) 

IF(IOES.EQ.O)  GO  TO  6 
TFHPCFsTFHPOS/TFHCAL 
0HHPCF»QHT  CC/OHTCHP 
ET  HPCFs-'ETHPOS/ETATHP 

WRITE  C6, 10  21 CNHPCF, TFHPCF, ETHPCF , CHHPCF 

FORMATC20H0H.P.  TURBINE  DESIGN, 5X?HCNHPCF*,E15. 8, 5H  TFHPCF=,E15. 
19H  ETHPCF*, E15«8»8H  DHHPCFs,E15«3> 

TFHCAl*TFHPCF*TFHCAL 
OHTCHFsDHHFCF*OHTCHP 
ET  ATHP*ETHPCF*ETATHP 
0HTC*0HTCC*TA 

errcd*(tf;ical-tffhp)/tfhcal 
ERR C 2 I* C OH TCC-OHTCHP) /OHTCC 

CALL  THTURBCCHTC,ETATHP ,FAR4,H4,S4,P4,T45,H45,S45,P45) 

IFOLHP.LE.O.I  GO  TO  7 

FAR45*WFB/<NA3*8LHP) 

WG45*KG4 ♦BLHF 

H45* (BLHPI *H22*8LHPC*H3»WG4*H45> /WG45 
CALL  THERHCCF45,H45,T45,S45,XX2,1,FAR45,1> 

GO  TO  0 

FAR45*FAR4 

MG45*WG4 

CALL  CCIPTB 

RETURN 

ENO 
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SUBROUTINE  CCIPTB 
COMMON/  ALL/ 

yJOES 


1KORO  y  IDES 


i  MODE 
y  IMCO 


,INIT  ,IOUt*P  ?IAMTP 
. IOSHOCy IMSHOC  «  N07FL 1 
r£RR<9) 


COHMON/OESIGN/ 
1PCNFGU  yPCNIGU 

yPCNCGU 

y  T4GU 

yOLHOl 

yOELFG 

yOELFN 

yOELSFC 

2ZF0S 

yPCNFOS 

yPRFOS 

yETAFOS 

yHAFOS 

,PRFCF 

yETAFCF 

,WAFCF 

3  ZI  OS 

yPCNlDS 

yPRIOS 

yETAIOS 

yHAIOS 

yPRICF 

yETAICF 

,HAICF 

4ZCDS 

yPCNCCS 

, PRC OS 

yETACOS 

,  MACOS 

yPRCCF 

yETACCF 

, M ACC F 

5T4DS 

yMFBOS 

yOTCOOS 

yETABOS 

y  M A3C0S 

yOPCOOS 

yOTCOCF 

,ET  A8CF 

6  TF  HP  OS 

yCNFPOS 

yFTHPOS 

, TFHPCF 

yCKHPCF 

yETHPCF 

yOHHPCF 

y  T20S 

7  TF  IPOS 

t CN IPOS 

yETIPOS 

, TFIPCF 

yCNIPCF 

yETIPCF 

yOHIPCF 

y  T21DS 

8TFLP0S 

yCNLPCS 

yETLPOS 

yTFLPCF 

yCKLPCF 

yETLPCF 

yOHLPCF 

,T220S 

9T2  40S 

y  NF  COS 

yOTD'JOS 

,ETAOOS 

, NA230S 

yDPOUOS 

yOTOUCF 

,£TAOCF 

A 17  OS 

t  HF  AOS 

yOTAFOS 

yETAAOS 

y  NG6C0S 

yOPAFOS 

yOTAFCF 

yETAACF 

BA55 

y  A2  5 

,A6 

,A7 

y  AC 

»A9 

,  A2A 

y  A<?9 

CPS  55 

y  AM  55 

f  CVONOZ 

yCVMNOZ 

yAeSAV 

, A9SAV 

, A28SAV 

,A29SAV 

COMMON/ 

1T1 

FRCNT/ 
$P  1 

y  HI 

#S1 

»12 

»P2 

»H2 

»  S2 

2T2 1 

yP2i 

,H21 

y  S21 

,T22 

,P22 

y  H22 

y  S22 

3T3 

,P  3 

,H3 

y  S3 

»T4 

»P4 

,H4 

yS4 

4T45 

t  P4  5 

yH45 

yS45 

»T5 

yP5 

yH5 

yS5 

5T5S 

y  P55 

,H55 

,S55 

,  BLF 

yBLI 

y  BLC 

y  BLDU 

6  CNF 

,  FRF 

,ETAF 

yMAFC 

y  MAF 

yBLOUI 

yB.OUC  • 

■yBLOB 

7CNI 

y  PR  I 

yETAI 

•  HAXC 

yNAI 

,BLOBI 

,BLOBC 

y  H  A3 

8  CMC 

,  PRC 

,ETAC 

yNACC 

y  W  AC 

,ETAB 

yOPCOM 

y  MG4 

9CNHP 

t ET  ATHP 

yOHTCHP 

yOHTC 

yBLHP 

yBLHPI 

,BLHPC 

,  FAR4 

ACNIP 

yETATIP 

yOHTCIP 

yOHTI 

yBLIP 

yBLIPI 

yBLIPC 

yOUMF 

9CNLP 

, etatlp 

yOHTCLP 

,OHTF 

yBLLP 

,  BLLPI 

,BLLPC 

,CS 

GfcG45 

, FAR45 

y  NG5 

,FAR5 

rMG55 

,FAR55 

,HPEXT 

«  AM 

DAL  TP 

,ETAR 

yZF 

,  PCNF 

yZI 

yPCNI 

yZC 

yPCNC 

ENFB 

,TFFHP 

yTFFIP 

,  fFFLP 

yPCBLF 

yPCBLI 

yPCBLC 

yPCBLDUI 

F  PC  BLOUC 

;,pcelcbi 

yPCBLOBC 

yPCBLHP] 

:,pcblhpc 

lyPCBLIPI 

yPCBLIPC 

;,PC3LLPI 

GPC8LLPC 
COMM 
1MFF 
DATA 
NORO 


(15,15) ,ETATX(15,15)  y 
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3  MARGO =0 

IF<ABSaFFIPS-TFFIP).LE.fi.03i*TFFIPS>  GO  TO  4 
MAPGO'l 

IF(ABS(CNIFS-CNIP>.GT,0.0Q1*CNIPS>  MAPGQ=3 
GO  TO  5 

IF (ABS (CNIPS-CNIPI # GT. 3 . 001*CNIPS )  MAPG0=2 

IFIHAPGO.GT.Q)  CALL  NAPBACC3 ,HAPGC,TFFIPS,TFFIP, CHIPS, CNIP,PCNI 
1T4 ,HOOE, NO  NAP,NUMHAP) 

IF(NCNAP.GT.O)  RETURN 
TFICAl.sMG45*SQRT  (T45I  /  (14«696*P45) 

OHTIC* CNAI* (N22"H2il ) / <NG45*T45) 

IF!IOES.EG.OJ  GO  TO  6 
TFIPOF*TFXPD$/TFICAL 
OHJPCF*QHT IC/OHTCIP 
ETIPCF*ETIFOS/ETATIP 

WRITE (6* 102) CNIFCF, TFIPCF, ETIPCF, OHIPCF 
102  FORMAT (2 OH  01 .P.  TURBINE  DESIGN, 5X7HCNIPCF*,E15.8,8H  TFIPCF  =  ,E15 
18H  ETIPCF=,£l5.8,8H  OHIPCF®, E15. 8) 

6  TFICAL*TFIPCF*TFICAL 
OHTCIP=OHIFCF*OHTCIP 
ET  ATIP*ETIPCF*ETATIP 
0HTI*0HTIC*T45 

ERRC8l=ITFICAL-TFFIPI/TFiCAL 

ERR<9I»<OHTIC-OHTCIPI/OHTIC 

CALL  THTURB  {0HTI,ETATIP,FAR45,H45,S45,P45,T5,H5,S5,P5> 
IF«BLIP.LE.O>  GO  TO  7 
FAR5®NF8/<  NA3^BLHP+BLIP1 
MG5*NG45+8LIP 

H5®miPI*H22*8LIPC*H3*WG45*H5)/NG5 
CALL  THERHC(P5,H5,T5,S5 , XX2 ,1, FAR5, 1) 

GO  TO  8 

7  FA R5»FAR45 
MG5-NG45 

8  CALL  COLPTe 
RETURN 

END 


SUBROUTINE  CCLPT8 
COMMON  /  ALL/ 

iKJRO  ,IOES  fjoes  ,KDES  ,MOOE  tIHXt  jIOUHP  ,IA«TP  , 
2IGA3NX,I0BURN*IAFTBN,I0C0  ,IMCO  ,  XQSHQC,  IHSHQC,NGZFLT , 
3  IT«VS,tOQPER,WOHAP,MUWMAP,HAPEDG,TOlALL»eRRm 


COMMON/OESIGN/ 

1PCNFGU  .PCNIGU  .PCNCGU 

,T4GU  ,0LHD1 

,DELFG  , OELFN 

, OELSFC  , 

22F05 

fPCNFOS  ,PRFOS 

,CTAFOS  , N AFDS 

,PRFCF  nETAFCF 

i WAFCF 

3ZIOS 

, PCNICS  ,PRIOS 

, ETAIOS  , MAIDS 

,PRICF  ,ETAICF 

r  HAICF 

4  ZOOS 

, PCNCCS  , PRC OS 

, ETACOS  , hacos 

,PRCCF  ,ETACCF 

,  WACCF 

5T4  0S 

, WF  60S  ,OTCOOS 

,ETAB0S  , H A3CDS 

lOPGODS  jOTCCCF 

, ETA3CF 

6TFHP0S 

,  CNHPOS  ,£THP0S 

, TFHPCF  jCKHPCF 

fSTHPGF  jOHHPCF 

,T20S 

7  TF  IPOS 

• CN IPOS  ,ETIP0S 

,'fFIPCF  ,CNIPCF 

,ETaPCF  ,ohipcf 

,T210S 

8TFLPDS 

, CfiLFOS  »ETLP0S 

, TFLPCF  , ChLPCF 

iETLPCF  ,OHLPCF 

,T220S 

9T2  40S 

, WFODS  fOTOUOS 

iETAOOS  , WA230S 

,OPOUOS  ,OTOUCF 

,£TADCF 

AT7  0S 

, MF  AOS  jOTAFOS 

tETAAOS  ,HG6C0S 

jOPAFOS  ,DTAFGF 

,ETAACF 

BASS 

,025  ,A6 

, A?  ,A6 

,A 9  ,A28 

,  A29 

CPS  55 

*  AH 55  ,CVDNOZ 

,CVNNG2  ,  A8SAV 

,A9SAV  , A2RSAV 

, A29SAV 

COMMON/  FRONT/ 

1T1  *  FI  »Hi 

, SI  ,T2 

,P2  ,H2 

,S2 

2T21 

, P2 1  »H21 

,S21  ,T22 

,P22  #H22 

,522 

5?3 

,P3  ,K3 

, S3  ,T4 

,P4  ,H4 

,54 

4T4  5 

, P45  ,H45 

, S45  ,T5 

,P5  ,H5 

,S5 

5T5  5 

P55  ,H55 

,S55  ,BLF 

,8LI  ,  91.  C 

,  BLOU 

6  CNF 

,PRF  ,ETAF 

,KAFC  iWAF 

,BLOUI  , RLOUC 

,BL08 

7  CM  I 

, PRI  ,ETAX 

, WAIC  ,WAI 

,8LOGT  ,BL08C 

,WA3 

5CNC 

, PRC  ,ETAC 

» WACC  , WAC 

,ETAO  , OPCQM 

,  WG4 

9CNHP 

, ET  AT HP  ,OHTCHP 

, OHTC  ,BLHP 

,BLHPI  ,BI)IPC 

,FAR4 

ACN  IP 

,ETATIP  ,i3HTCIP 

,OHU  ,BLIP 

,BLIPI  , RLIPC 

,OUKF 

BCNLP 

,ETATlP  ,ohtclp 

, OHTF  ,8LLP 

,BLtPI  , BLLPC 

,  c  s 

CWG45 

, FAR45  , WG5 

,FAR5  , W655 

,r AR55  ,HPEXT 

,  AM 

OALTP 

,ETAR  ,ZF 

, FCNF  ,ZS 

,PCNI  ,ZC 

,PC«C 

EWFB 

• TFFHP  ,TFFIP 

, TFFLP  , PCBLF 

,PC8LI  ,PCBLC 

,PC3l.0UI 

FPCBLOUCs  PCBL08I,PCBLOBC,PCBLHPI,PC8LHPC,PCBLIPI,PCBLI?Cf PC8LLPI 

GFC8ULPC 

COMMON  /LTUR9/TFFXC15) ,CNX(15,15) ,DHTCX <15, 15) »cT ATX (15, 15) , 
1NT  FFS,NPTTFF (15) 

DATA  AWORO  »WLG, NHI/6KC0LPT8  »6H  (LC)  ,6H  CHI)  / 


HO  RO=  AWORO 

IF CIDES.EQ  .0)  GO  TO  1 
CNLPCF=CNLFQS*SORT ( T51/PCNF 

1  CNtP=CNLFCF*FCNF/SQRT(T5) 

CNLPS=CNLP 

TFFLPS=TKFtP 

CAU.  SE  ARC  M~1 «  » TFFLP,CNLP , DHTCLP  ,ETATLP, 

1 TFFX  (1)  , NT FFS,CNX (1,11  ,OHTGX (1,1) ,ET ATX  <1.11 , NPTTFF (1) > 15 , 15 » IGu > 
IFCIGO.EQ.  l^CR.IGO.EQ.ll.QR.IGO.EQ.21)  WRITE  <8 ,1000) TFFLPS,HLO 
IFCIGO.EQ.  2.0R.IG0.EQ.12.QR.IG0.EQ.22)  WRITE (8,1009) TFFLPS, WHI 
IF (IGQ.EO. 10. OR.IGO.EQ.il. OR.IGO.EQ. 12)  WRITERS, 200Q)  CNLpS,WLO 
IFCIGC.EQ.20.OR.IGO.EQ.21.OR.IGO.EQ.22)  WRITE  (0,2000 )  GULPS,  WHI 
tCDG  fORMAT(i<JHO*****TFFLP  OFF  HAP, F1Q.4,2XA6,11H*****SS1J1*> 
ioOo  FORMAT (19H0*****  CNLP  OFF  MAP, F10  »4,2XA6,ilH****#<f $11$) 

IF  CIGC.NE.?)  GO  TO  3 

2  CALL  ERROR 
RETURN 
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*APGQ*3 

If  COSSdfFLPS-TFFLP)  «LE.  0.  OQi’TFFLPS)  GO  TO  4 
HAMJOsl 

IF  U3SCCNLPS-CNi>).5Te0, 001*CNLPS>  HAPG0*3 
GO  FO  $ 

&  CABS (CNLPS-CNLP) .GT.O. 0Q1*CNLP5)  HAPG0*2 

IFCHAPGO.GT.fi)  CALL  HAPBACC2»MAPGC,TFFLPS,TFFLP,CNLPS,CNLP,PCNF, 
1T4  »NOOE#NGMAP jNUHMAP) 

IF  CNOHAP.GT. 0)  RETURN 
TFLCAL*WG5*5G27 4T5) ✓ <14. 696*PS ) 

CHTCF*HAF*  CH21-H2I/ <HG5*?5) 

JFUDES.EQ.O)  GO  TO  6 
TFLPCF*TFLPO$/TFLCAL 
ChLPCF*QHTCF/OHTCLP 
ETLPCFsETLfOS/ETATLP 

HR  ITE  102) CNLPCFj TFLPCF , ETLPCF , CHLPCF 

FORHAT (20HOL.P.  TURBINE  DESIGN, 5X7HCNLPCF*,E15. 8, 8H  TFLPCF=,E15. 9 
18H  ETLPCF*,£15.8,8H  0HLPCF*,E15. 8) 

TFLCAL^TFLPCF^TFLCAL 
OHTCLP“DKLFCF*OHTCLP 
ET  ATLP-ETLFCF*ETATLP 
0HTF*QHTCF*7  5 

ERRC3)-»<TFICAL«TFFLP)/7FLCAL 

ERRC4»*CDHTCF-DHTCLP)/0HTCF 

CALL  TKTUSB CGHTF ,ET ATLP ,FAR5, H5,S5,P5, T55, H55,S55, P55) 

IF (8LLP.LE .0.)  GO  TO  7 
FAR55*HFB/ <HA3*B?.HP*BLIP<8LLP) 

NG55*NG5+BLLP 

H5 5* < BLLPI ♦H22^BLLPC*H3»HG5»K55) /NG55 
CALL  THERH0CF55,H55,T55,$55,XX2,1,FA»55,1> 

GO  TO  8 


FA  R55=FAR5 
MG55*HG5 
CALL  FRTOSC 
RE  TURN 
END 


I 
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SUBROUT  SNR  rRTOSQ 
CONNOR/  FRONT/ 


ill 

p  FI 

*si 

»T2 

»P2 

»H2 

»S2 

9 

2T2i 

,F21 

,H21 

,S2t 

9T  22 

,P22 

♦  H22 

9  S22 

9 

3T3 

fP3 

»H3 

t  S3 

»ta 

9  PA 

9  HA 

pS4 

? 

4TA5 

,P45 

,H45 

,SA5 

»T5 

»P5 

»H5 

,SS 

? 

STD  5 

pP55 

»H55 

«  S55 

j  8LF 

9  8LI 

,BLC- 

pBLOU 

> 

6CNF 

,PKF 

,EUF 

9  MAFC 

*  KAF 

fBtOUl 

,  BLDUC 

9  BLOB 

» 

7CN7. 

i  PR  I 

,£TAI 

t  WAXC 

pMAZ 

,81081 

9  BL08C 

pH  A3 

9 

8  CMC 

pPRC 

*ETAC 

9  HACC 

,  MAC 

,ETAB 

t  OPCOM 

9  WS4 

» 

9CKHP 

,ETATHP 

pOHTCH? 

jOHTC 

1 8LHP 

9BIHPI 

98LHPC 

,FARA 

t 

ACNIP 

f  ETA?  IP 

pOHTCXP 

,OHTI 

,BLXP 

9BLIPX 

pBLIPC 

pOUNF 

9 

8CNLP 

pETATLP 

pOHTCLP 

,OMTF 

iBLLP 

pQLLPI 

pBLLPC 

rCS 

9 

CWG45 

,FAR45 

,HG5 

,FARS 

9  NG55 

,FAR55 

,HPEXT 

t  AH 

9 

OS1TP 

,ET  AR 

»2F 

tPCNF 

*21 

jPCMI 

»  2C 

»PCNC 

% 

EWFB 

,TFF-fP 

,TFFIP 

,TFFlP 

9PC8LF 

pPCBLX 

,pcblc 

,pC8U)UI 

1 

FFC8LOUC 

, PC  81081 

pPCBLOBC 

:,PCSLHP1 

:»PC81HPC»PCBL1PI9PCBLIPC 

;,PC9LLPI 

f 

C-PCBLLPC 

COMMON/ 

1XP1 

SIDE/ 
t  XNAf 

t  XKAX 

p  XMAC 

,xeiF 

9X8ICU 

,  XSLOUI 

9  X8L0UC 

? 

2XH22 

,XH3 

,XT2i 

9  XP21 

tXH  21 

,XS21 

9OUNSI 

» DIMS  2 

• 

3T23 

,P23 

»H23 

9  $23 

*T24 

,  P2A 

,H2A 

pS24 

1 

4T2  5 

,P25 

»H25 

,S25 

,T25 

,P28 

,H28 

,329 

* 

5T29 

,P29 

,K29 

PS29 

,CUHS3 

9OUKSA 

, OWNS 5 

,  GUM'S  6 

9 

6X60 

t  HFL 

,NG24 

,FAR24 

,ETAO 

,npDUC 

9  BYPASS 

9  DUNS  7 

1 

7TS25 

t  PS28 

,V28 

9  AM28 

.TS29 

,PS29 

pV29 

,AK2^ 

XPi 
XWAF*HAF 
XWAI*XAI 
XNAC~HAC 
XBLF=6LF 
XBLOU-BLOU 
XBLDUl-BLOOI 
XBLQUC-BLOUC 
XH22*H22 
XH  3*H2 
XT  2i*T21 
XP21sF2i 
XH21*H21 
XS21*S21 
CALL  COOUCT 
RETURN 
ENO 
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SUBROUTINE  CCOUCY 
COHKON  /  AU/ 

,IOES  yJQES 


COHKON  /  AU/ 

1NORO  yXOES  t JOES  yKDES  ,MG0E  ,INI7 
2IGASMX,I09URN,IAFTBNVI0C0  ,IHCD  , IOSH 
3ITRYS ,lOOPER»NOHAPf NUHHAF.HAPEOG, tOLALL 


y IOSHOCy IMSHOC y NQZFLT y 
TOLALLyERR (9) 


1PCNFGU 

y PCNIGU 

yPCNCGU 

,  T4GU 

yOllHOl 

yOELFG 

,OELFN 

yOELSFC 

2ZF0S 

t  PCNFOS 

yPRFOS 

yETAFOS 

y  MAFOS 

yPRFCF 

yETAFCF 

yWAFCF 

3ZI  DS 

yPCNICS 

yPKXDS 

yETAIDS 

yMAIOS 

yPRICF 

y  ETAICF 

yWAICF 

4ZC0S 

fFCNCOS 

, PRODS 

yETACOS 

yMACOS 

yPRCCF 

yETACCF 

t HACCF 

5T40S 

»NFEDS 

yOTCOOS 

yETABOS 

y  MA3C0S 

yQPCODS 

yOTCOCF 

yETABCF 

6TFHPDS 

»CN HPOS 

yETHPOS 

yTFHPCF 

r CKHPCF 

yETHPCF 

yOHHPCF 

yT20S 

7TF  IPOS 

yCNIFOS 

yETIPOS 

jTFIPCF 

yCNIPCF 

yETIPCF 

yOHIFCF 

,T210S 

6TFLP0S 

*  CNLPOS 

yETLPOS 

yTFLPCF 

yCNLPCF 

yETLPCF 

yOHLPCF 

y  T220S 

9T2  40S 

y  NF CDS 

yOTOUOS 

yETAOOS 

$  M A23DS 

yOPOUOS 

yDTOUCF 

,FT40CF 

AT70S 

t  WF  AOS 

yOTAFOS 

yETAAOS 

y  MG6C0S 

yOPAFOS 

yOTAFCF 

,ETAACF 

BA5  5 

yA25 

y  A6 

» A7 

»  A8 

»A9 

y  A26 

y  A29 

CPS  55 
COHKON/ 

y  AH  55 

S  IDE/ 

y  CVONOZ 

yCVHNOZ 

yASSAV 

,  A9SAV 

y A26SAV 

, A29SAV 

i  Pi 

y  HAF 

y  MAI 

y  KAC 

,  ELF 

y  BLOU 

y  BLCUI 

>  BLOUC 

2  H  22 

y  H3 

t  T21 

y  P21 

y  H21 

y  S21 

yDUHSl 

y  OUHS  2 

3T23 

,F2  3 

yH23 

yS23 

» T24 

yP24 

y  H24 

yS24 

4T25 

»P25 

y  H25 

yS25 

yT28 

,P28 

>  H28 

yS28 

5T29 

yP29 

,H29 

yS29 

y  0LHS3 

1 0UHS4 

y  DUHS5 

t OUHS  6 

6  RAO 

y  MFC 

y  HG2  4 

y  FAR24 

» ETAO 

,  OPOUC 

y  BYFASS 

y  DUMS7 

7TS28  i  PS  28 

DIMENSION  Q (5) 

y  V28 

>  AH28 

y  TS29 

yt“S29 

,V29 

,  AM29 

OAtA  AKOROi, AHOR02/6HCODUCTy6HONOZZL/ 

NORQsAHOROl 

Q(2»ra, 

0(31 =0. 

NAX=WAF~NA  I-BLF 
MO«KAX»BLCU 
F23  =  P2i 

H2  3=<BLOUI*H22*8LOUC*H3*MAX*H21)/»«AO 
CALL  THERM C (P23 ,H23 rT23 y £23, XX2, 1 y0 . 0,1) 
BYPASSs(HAF-HAII/HAI 
HA23C-WA0*SQRT (723) /P23 
IF  (IDES. EG. i>  WA23DS=WA23C 
OPDUC=OPOUOS*  (WA23C/WA230S) 

IF (OPOUC  «GT • 1* )  OPDUC=l. 

P24=P23M1.-CPDUC> 

IFUGASMX.GT.Q)  IOBURN=0 

ir jidburn.ne.o)  go  to  2 

T2  4=T23 
KF  0=0 , 

FA  R24=0  » 
bU  lu  t 

IFlIOaURN. E0.2I  T24=T23*200Q. 

IF(T24<GT.40CQ. )  T24=4G00. 

IF  (T24.LT.T23I  T2b=723 

*  IF  OESIREO,  ENTER  CALCULATIONS  FOR  ETAO  HERE 

HV  =  (  i  UC  (-.45943i7E-i9*T24)-,2  0341i6E-15)*T24*.27  83643E< 
1 .2  051501 E- 07) *T 24-.  2453il6E~Q3>*T24‘>.943329&E-Qi>*T2*+.: 
CALL  THF.RHC(P24«HAvT24rXXlvXX2»0f Q.OfC) 
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FAR2  4  =  (HA-H23)/<  Hu*ETAO> 

IF <FAR24.LT.O.)  FAR24-0  » 

SFOX  =  FAR24*WA0 
IF ( I OCURN j  NE . 21  GO  TO  6 
ERRH  =  tKFD~NF0X)  /KFO 
DIR=SCRT  CHFO/HFCX) 

CALL  AFQUZR(0(1) vT24»ERRM«Q.»S9Kt Q. 0001 ,DIR, T24T , IG0> 

GO  TO  (4  »T  ,5) f IGO 

T24=T24T 

GO  TO  3 

CALL  ERROR 

MFO=HFOX 

CALL  THERM0(F24,H24,T24,S24,XX2, 1,FAR24,Q) 

HG24  =  KFD*NA0 

IF(IOES.EQ.l)  HR7TE<6,101>  HA230S 
FORMATU2H0OICT  QESIGM,  ♦.  2X8H  HA23CS*,E15.8) 

1  IF  OESIREO,  ESTER  GTHFR  LOSSES  HERE 

T25  =  T24 
F25=P24 
F25  =  H24 
S2  5  =  S24 

IF  (IGASHX.GT.O)  GO  TO  11 

WORD= AW0R02 

A2  8SAV=A28 

A2  9S  A  V=  A29 

NO  Z  0  =  0 

IDNOZ=0 

IF (NOZFLT. EO .2. OR.NOZFLT . EQ.3)  NOZO*1 
IFUOES.EQ.l.OR.IOBURN.GT.O.OR.NOZD.EQ.l)  IONOZ  =  l 
IF  (IOCO.EC.l)  GO  TO  8 

CALL  CONVRG(T25,H25,P25,S25,FAR24,MG24,Plf IDNOZ,A28,  F25R, 
lT2G,H28*P2tjS28«TS28»PS28»V28|AM28»ICON) 

GO  TO  ( 9  *9  » 3  » 5) , ICON 

CALL  CON0IV'.T25,H25,P25,S25,FAR24,NG24,Pl,IDN0Z,A28,A29,P25R, 
iVd  8,H28,P28, S28,T29,H29,P29,S2  9,TS28,T$29,PS28,PS29,V28,\/29r  A 

2  AH 29  » ICON) 

10  3HQC=  ICON 

GO  TO  CIO,  10,10,5) , ICON 

T29=T28 

i-29=H28 

P?9=P28 

32  9  =  S28 

IS  =  TS2  8 

R3Z9  =  FS29 

v<.9=  V28 

AH2  9  =  AM2  8 

C29  =  A28 

i:’SHOC=ICON+3 

ERR(5)=(F25R-P25)/P25R 

IF  (IOSOZ.EQ.l)  WRIT  E  (6 , 1 00 )  A2  8  ,  Af*2  8  ,  A29,  AM29 


FORMAT  119HOOUCT  NOZZLE  OESIGN, 5X8H 
18H  A29=  ,E15. 8,8H  AH29  =  ,E15.b) 

CALL  FAS TB  K 
R£  TURN 
ENG 


A28=,E15.8,8H  AH28=*t 


IS&A.  (' 


SUBROUTINE  FASTBK 
COMMON/  FRCNT/ 


1T1 

fPl 

f HI  ,Sl 

»T2 

»P2 

» H2 

»S2 

2T21 

i  P21 

,H21  t S21 

yT22 

yP22 

yH22 

yS22 

3T3 

#P3 

t H3  t  S3 

.ta 

»P4 

,H4 

tSk 

4T45 

*P4  5 

» H45  ,S45 

»T5 

»P  5 

y  H5 

»S5 

5  T55 

*P55 

,H55  t S55 

,  BLF 

y  BLI 

yBLC 

,  8L0U 

6CNF 

,PRF 

#£TAF  r HAFC 

yMAF 

yBLDUI 

y  BLOUC 

y  BLOB 

7CNI 

» PRI 

,ETA I  t HAZC 

y  H  AI 

yBLOBI 

yBLOBC 

y  WA3 

8CNC 

t  PRC 

yETAC  t HACC 

y  H  AC 

yETAB 

yOPCOM 

y  HG4 

9CNHP 

tETATHP 

yOHTCHP  f OHTC 

y  8LHP 

yBLHPI 

yBt.HPC 

yFARtt 

ACNIP 

»ET  AT  IP 

yOHTCIP  yOKTI 

y  BLIP 

yBLIPI 

y O'-  AFC 

yOUMF 

BCNLP 

» ET  ATLF 

lOHTCLP  f OHTF 

yBLLP 

yBLLPI 

yLJJ.PC 

,CS 

CHG45 

,FAR45 

t HG5  t FAR5 

,  MG55 

yFAR55 

yrtPEXT 

y  AM 

DALTP 

t  ET  AR 

,ZF  »PCNF 

»ZI 

yPCNI 

fZC 

yPCNC 

EHF8 

,TFFHF 

,TFFIP  ,TFFLP 

yPCBLF 

yPCBLI 

yPCBLC 

yPCBLOUI 

FPC  BLOUCy  PC  BLOBI y PCBLOBC  *  PCBLHP I 
GPCBLLFC 

COMMON/  SIOE/ 

yPCBLHPC 

yPCBLIPI 

yPCBLlPC 

;,PC3LLPI 

iXPl 

,  XHAF 

t XHA I  f XMAC 

yXBLF 

yXBLOU 

yXBLOUI 

,X8LDUC 

2XH22 

,  XH3 

t  XT21  y  XP21 

y  XH21 

y  XS21 

yOUMSl 

y  DUMS  2 

3T23 

,P23 

,H23  y  S23 

»  T24 

,P24 

y  H24 

,  S24 

4T2  5 

,P2  5 

y  H25  ,S25 

,T28 

y  P2  8 

,  H28 

yS28 

5T2  9 

,P2« 

y  H29  y  S29 

y  0LMS3 

yOUMS4 

,DUMS5 

y  DUMS6 

6  HAD 

,HFO 

, HG2  4  t  FAR24 

yETAO 

yOPOUC 

y  BYPASS 

y  DUMS  7 

7TS28 

COMMON 

t PS  28  » V28  ,AM28 

/  EACK/ 

y  TS29 

,PS29 

>  V29 

y  AM29 

X  XT  55 

i XP55  , 

XH55  ,XS55  y  XT25  ,XP25 

y  XH25 

,XS25 

» 

XXHFB 

,XHG55  , 

XFAR55, XMFO  ,XMG24  ,XFAR24,XXPi 

yOUMB 

9 

3T6 

,P6 

H6  ,S6  ,T7 

»P7 

t  H7 

,S7 

9 

4T8 

»P8  , 

H8  yS8  , T9 

fP9 

»H9 

»S9 

9 

5HG6 

y  WFA  , 

WG7  ,FAR7  yETAA  ,OPAFT  ,V55 

yV25 

9 

6  PS  6 

y  V6  f 

AK6  ,TS7  , PS7 

,V7 

,  AM7 

y  AM25 

9 

7TS8 

,FS8  , 

V8  y  AM8  , TS9 

y  PS9 

»V9 

y  AH9 

9 

8VA 

» FRO  , 

VJO  y  FGMO  ,VJM 

yFGMM 

yFGPC 

yFGPM 

9 

9FGM 

» FGP  , 

HFT  ,HGT  yFART  ,FG 

,FN 

,SFC 

XT  55  =  155 

XP55  =  F55 

XH55=H55 

XS55=S55 

XT  25*T25 

XP25=F25 

XH25  =  H25 

XS25  =  S25 

XWF3=*FB 

XWG55*KG55 

X~AR55=FAR55 

XWFQr-HFO 

XHG24=HG24 

XFAR24-FAR24 

XX  Pi  =  Ft 

CALL  COMIX 

RETURN 

END 

oe- 


SUBROUTINE  COMIX 
DIMENSION  QQ  (9) 

COMMON  /  ALL/ 

1HORO  , ICES  » JOES  »KOES  yMOOE  ,INIT  ,IDUNP  ,IANTP  , 
2 IG  ASMX, IOBURNy IAFTBNy IOCO  ,IMCD  , XOSHOC, IMSHOC , NOZFLT , 
3  IT  RYS  «LOOPERyNOHAPy  NUMMAPy MAPEOGy  T0LALLyERR(9) 

CO  MMON/OES 1GN/ 


1PCNFGU 

yPCNIGU 

,PCNCGU 

y  T4GU 

yOUMOl 

yOELFG 

yOELFN 

yDELSFC 

2  2FOS 

, PCNFCS 

yPRFOS 

yETAFOS 

,  NAFOS 

yPRFCF 

yETAFCF 

,MAFCF 

3ZI0S 

yPCNICS 

{iPRIOS 

yETAIOS 

yNAXOS 

yPRICF 

yETAICF 

yHAICF 

4ZC  03 

yPCNCCS 

y  PRC  OS 

, ET  ACOS 

y  H  ACOS 

yPRCCF 

yETACCF 

y  H ACC  F 

5T4  0S 

y  WF  605 

,orcoDs 

yETASOS 

yMA3CQS 

,OPCOOS 

yOTCOCF 

,ETABCF 

6TFHP0S 

yCNHPOS 

yETHPOS 

y  TFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

,T2DS 

7  TF  IPOS 

y  CN IPOS 

yETIPOS 

yTFIPCF 

yCMPCF 

yETIPCF 

yOHIPCF 

, T210S 

8TFLP0S 

yCNLPOS 

yETLPOS 

yTFLPCF 

yCKLPCF 

yETLPCF 

yOHLPCF 

y T220S 

9T2  4DS 

, MFCOS 

yCTOUOS 

y  ETAOOS 

y  NA230S 

yOPOUOS 

yOTOUCF 

yETAOCF 

AT7  0S 

y  NF  AOS 

yOTAFOS 

yETAAOS 

,  NG6C0S 

yOPAFOS 

yDTAFCF 

yETAACF 

BA55 

yA2  5 

» A6 

,A7 

y  A  8 

t  A9 

» A2& 

y  A29 

CPS  55 

,  AH  55 

yCVONQZ 

yCVHNOZ 

yASSAV 

y A9SAV 

,  A28SAV 

y  A29SAV 

CO MMO N/FRONT /OUHF1 ( 98)  y  ZFy  PCNF  y 0UFF2  {21 ) 
COMMON  /  EACK/ 


1T55 

,P55 

yH55 

yS55 

,  T25 

y  P25 

y  H25 

,  S25 

» 

2WFB 

t  NG55 

,FAR55 

yHFO 

y  HG24 

y  FAS24 

,P1 

yOUMB 

9 

3T6 

,P6 

y  H  6 

yS6 

,T7 

»p  r 

,H7 

» S7 

t 

4T8 

,P8 

y  H  8 

yS8 

»T9 

tP9 

*H9 

»S9 

m 

5  MG  6 

,  H  FA 

y  WG7 

,FAR7 

,ETAA 

yOPAFT 

,V55 

yV25 

» 

6  PS  6 

»V6 

yAM6 

,TS7 

,PS7 

tV7 

,AM7 

y  AM25 

# 

7  TS  8 

» PS8 

»  V8 

i  AMS 

y  TS9 

y  PS9 

,V9 

y  AH9 

* 

8  VA 

,FRD 

y  V  JO 

yFGMO 

yVJM 

y  FGMM 

yFGPO 

yFGPM 

» 

9FGM 

,  FGP 

yWFT 

,NG7 

yFART 

» FG 

,fn 

,SFC 

OATA  AWOR0/6H  COMIX/ 

NO  RO~  AMORO 
A J =7 7  8.26 
CAPSF-2U6.2170 
G=32. 174049 

CALL  PR0C0N(FAR55,T55y XXI ,XX2y  XX3  yXX4»PHI55y XX5) 

CALL  PR0C0N(FAR24,T25,XXi,XX2,XX3yXX4,PHI25,XX5) 

IF ( IOES. £Q  * 0)  GC  TO  6 

C  ***  CALCULATE  A55  ANO  A25  NITH  PS25*FS55 
IF (PS55.EQ *0  • )  GO  TO  50 
TS55=T55*<PS55/F55) ♦*0.286 
00  1  1  =  1,15 

CALL  FR0C0MtFAR55,TS55,CS55,AK55,CP55,REX55,PHIS55,HS55) 
FH  J.S  =  FHI55-REX55*AL0G(P55/PS55) 

0ELPHI=PHIS-FHIS55 

IF (A8S(OELPHJ).Lc.O.OOU1*PHIS)  GO  TO  3 

1  TS55=TS55*EXF(4.0«OELFHI) 

2  CALL  ERROR 
RETURN 

50  TS55  =  Q.875*T55 

DO  51  1-1,15 

CALL  FR0C0M<FARS5,TS55,CS55,AK55,Cf>55,REX55»PhlS55,HS53> 
V55=AM55*CS55 

HSCAL  =H55- V55**2/ (2  »*G* A J) 

OF.  LHS=MSCA  L-HS55 
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e*  <8?*  ^ 


*smmss 


IF(ABS(OELHS).?.E.O.OC25*HSCAL>  GO  TO  52 

51  TS55*TS55*CELHS/CP55 
GO  TO  £ 

52  P355*P55/£XPICPHI55-PHIS55)/REX55> 

3  If f H55.GT. HS55)  GO  TO  53 

MRITr  (8,101>F55,PS55,T55,TS55,H55,HS55 

101  FORMATS  2  2H0SQRT  OF  H55-HS55  NEG  , 6E15. 6, 6HS «$*«> 

CALL  ERROR 

53  V55*SGRT<2.*G*Ad*(H55-HS55>> 

RHOaCAPSF*  FS55/ IAJ*  REX55*TS55) 

A55*MG55/(RH0*¥55> 

AM55*V55/CS55 
IF  (IGASMX.GT.Q)  GO  70  54 
MR  IT  E  (6*164)  A55»AM55 

104  FORMAT (2QH0TURBXNE  AREA  0ESIGN,6X6H  A55*,E15.8,8H  AM55=,£l5. 

GO  TO  34 

54  PS  25*PS55 
TS25*T25*(PS25/P25) **0.286 
CO  4  1*1,15 

CALL  FR0C0F(FAR24,T325,CS25,AK25,CP25,REX25,PHIS25,HS25) 
PHIS*PHI25-R£X25*AL0G(P25/PS25) 

0ELPHI*S»HIS-FHI525 

IF(A8SCQELPHI).LS.0.000i*PHIS>  GO  TO  5 

4  7S25*TS25*EXP(4.0»OELPHI) 

GO  TO  2 

5  IF  (H25.GT.HS25)  GO  TO  55 
MRITE  (8*1Q2)P25»PS25»T25,TS25,H25»HS25 

102  FORMAT (22HGSQRT  OF  H25-HS25  NEG  ,6E15. t> ,6HSSSSSS> 

CALL  ERROR 

55  V2 5*SGRT (2 .*G*AJ* (H25-HS25) ) 

RHO*CAFSF*PS25/ (AJ*REX25*TS25> 

1l  A2  5*MG24/<  RHC*V25) 

AH25*W25/C  S25 

MRITE  (6,  IQ  0)  A 55 ,  AM55, A25,  AN25 

100  FO RHAT (25H0TURBINE/DUCT  AREA  DESIGN, 7H  A55*,E15.8, 
f  1 fiH  AM55*  ,E15. 8 ,6H  A25*,E15.8,8H  AM25*,E15.8) 

I  GO  TO  20 

I  C  ♦♦♦  CALCULATE  PS55  AND  PS25 

S  6  MQ A  =  MG55/A  55 

I  C1=P55*SQRT (G/(T55* AJ) ) *CAPSF 

I  MC  ON*0 

I  00  (2) =0. 

I  00(31=0. 

1  AM55=0.50 

\  TS  55  =  0o  875  *T55 

7  DO  8  1*1,15 

\  CALL  FROCO  P  <  FAR55,TS55 , C 555 ,  AK55,  CP55,REX55  ,PHIS55,HSS>**) 

4  W55-AM55*CS55 

HSCAL=H55-V55**2/(2.*G*AJ) 

0ELHS=HSCAL-HS55 

IF  (A8SC0ELHS)  .LE  .0. 0005*HSCAL)  GO  TO  9 
8  TS55*TS55*0ELHS/CP55 

GO  TG  2 

9  MQ  AT  =C1*SQR? (AX55/REX55) *AM55/ (1 . ♦ ( AK55-1. ) *AH55**2/2 . )  ** 

1  <<AK55U.) ✓( 2.* (AK55-1. ) ) ) 
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AMX=AM55 
IG  OGO=G 

10  gir=hqa/hqat 

£W= ( WQA-MQ AT ) /HQA 

CALL  AFQUI R (QO< 1) , AHX,EH , 0. , 30. , 0. 0005 ,DIR,AMXT, ICON) 

GO  TO  (11, 15, 2), ICON 

11  IF(ANXT.LE.l.Q)  GO  TO  13 
AM  XT  =  0*7 

MC  ON=MCON+ 1 

IF (MC0N.LE.1)  GO  TO  13 
IF (MQCE. EQ .3 )  GO  TO  120 
HRITE (8, 10  31 FCNF, AMX,F55 ,PS55,P25 ,PS25 
103  FORNAT (12H0C0HIX  PCNF*,F7.4,4H  AM*,F8.6,5H  P55=,F9.5, 

16H  PS55=,F9.5,5H  P25=,F9.5,6H  PS25=, F9. 5,CHSS$$$$> 

PCNF  =  1.01*PCNF 

12  NOMAP=7 

j^£  j  y  £  ^ 

120  HRITE(8,121)ZF,AMX,P55,PS55,P25,PS25 

121  FORMAT (10H0CCHIX  ZF*,F8.5,4H  AM=,F8.6,5H  P 55=,F9.5, 

16H  PS55=,F9.5,5H  P25*,F9.5,6H  PS25=, F9. 5,6H$$SS$$) 

ZF  =  0.99*ZF 
GO  TO  12 

13  IF(IGOGO.EC.l)  GO  TO  14 

AM55  =  AMXT 

GO  TO  7 

14  AM25=AMXT 
GO  TO  16 

15  IF(IGOGO.EQ.l)  GO  TO  19 

PS  55=P55/E  XP ( (PHI55-PHIS55) /REX55 ) 

IFCIGASMX.LE.O)  GO  TO  34 
WQ  A=WG24/A  25 

Cl =P25*S0RT(G/CTc5*AJ))*CAPSF 
KC  ON  -  0 
QQ  (21=0. 

QQ (3) =0. 

AM25=0.25 

TS25=u.875*T25 

16  00  17  1=1,  15 

call  PROCOM (F AR24,TS25,CS25, AK25, CP25,REX25,PHIS25,HS25I 
W2  5= AM25*C  S25 

HSCAL=H25-V25**2/(2.#G*AJ) 

0ELHS=HSCAL-HS25 

IF  (AeS(OELHS)  .LE.O.  0005*HSCAU  GO  TO  18 

17  TS25=TS25»0£LHS/CP25 
GO  TO  2 

18  hQAT  =C1*SQRT (AK25/REX25) *AM25/ (1. ♦ ( AK25-1. ) * AM25**2/2. ) •• 
1  (( AK25»1.) /(2.MAK25-1.) )) 

AMX=AM25 
IGOGO  =  l 
GO  TO  10 

19  PS25=P25/EXP ( (PHI25-PHIS25J/REX25) 

2)  MG6=MG24*MG55 

ERR(5>=(PS25-PS55)/PS25 

4F6=HF0»HFG 

FAR6=WF6/(*G6-WF6> 
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>Zi?' 


C  *** 


c  ♦♦* 

3u 


Hi  tt's»21*#H2i*‘ihO,>t>^Hb*>)  /MIS 

CA LL  TriERHG  1 1*  ,  :iS,l  6,FHIb,  A!'!  .  1,FmRv.  1) 

31-PS55*A55*  (1*  *AK5  5*AM5t**ki)  ♦P5.‘2£*A25*  (1.  ♦AK25*AM25*« 
T!Ifc=0,ttJ<«  U 
25  1  =  1,15 

CALL  FklC0P(FARfc,TS6,CS6, AK6*CP6,REX6,PHIS6»HSb) 
CL*W66*SCRT<AJ*REX6*TC/<AK6*0>  ) 

C3 *C2/<CAPSF*C1) 

C4  =  (  AK6-1.  )/«.,-  CC3*AK6)**2 

C5=i.-2.*AK6«C3**2 

Cb*C5**2*<*.*C4*C3**2 

IF <06121,22,23 

CALL  ERRCR 

At.  TORN 

Artb2G*-C5/ <2.*CA> 

GO  TO  ?4 

AM62G=iii^TCLc)-C5) /(2,*CLi 
IF  (ANcLG.uEt  t.  i  GU  ’0  21 
AM6G=SURT{  AHE2G ) 

V6-AM6G*G<J‘. 

HSCAL=Ht“V 6**2/  l2,*G*A>. 

OELHS=HSLAL-hSfj 

IF  (ABS(Oiiuh'J)  .Lc»0.  aJU5*HSCAL>  GO  TO  26 
TS  6“ T Sb*  jc  LH  $ /OF 6 
GO  10  21 

IF ( IG ASM X, CT « u j  A6G-A25+A55 
C7-SQRT  ( 1,  ♦  ( AKb-1. ) *AMb26/2» ) 

FS6=C2/(CAFSF*A6G*AMbG*C7) 

FG  ;PS6*LXP  ((PHI6-PHIS6)/REX6) 

CALL  THERHQCP6, 66.  T6,S6y  XXx,i, FARE,  C ) 

SbAVt  =  \».024»Sc5*HG55*S5b)/HG6 
IF (S6.GE.S6AVE-  CO  TO  27 
S6=S6AVE 

P6=EXP(A.v:x*<fHl6-S6)/l,b86375) 

IF (IGASNX.EC.ll  GO  TO  35 
IF(IDuS.cC.t)  GC  TO  c- 

CALCULATE  AC  AS  A  FLECTION  OF  INPUT  AH6 
TS6=T6/<1. (((AKw-1,C)/2.0)*AHE**2.I) 

CO  29  JJ-i ,15 

CrtLL  FROOGWCf  mRC,U.  ,CbG,AKc  ,CP6,  FEX6»PHIS6,MS6> 

W6=AK6*CS'; 

HSCttL=H6-Vcv#t  ./ 

CtLHS=n.>CAL**p;  j 

*r  iioMutLr:,  t u  .  .  u*  U«(ib^ MbCAL /  GU  TO  2 
TS 6- l 3b»UE LrS/UP 
GO  TC  2? 

rS6=F6/i  (l.Q*t  UwKb-i. -j» /2.Q»*AK6**c.)  >*MAK6/CAK6-1.0H  - 
ArtbOS=AHb 

KHQ=CAPSF*P  Uj»RtXo*TSS; 

AO  =  WGE/ ( h  * o « *5 ) 

WRITE  (6, 2  j  i<)  At 

FORMAT  *lHy  ,  i  ,  /iAF  1 fc.K  rUWNtK  ENTRANCE  OESIGN  AREA  A6  ,F8.3) 
GO  TO  36 

CALCULATES  AR6— f-  (WbUhSiGN) 

TS6P*TCV  Cl ,o*{<  VXK6-1.0) /2 . 0» ♦ AN6CS**2 . ) ) 
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00  32  1*1,15 

CALL  PR0C0M  <FAR6,TS6P,CS6,AK6,CP6,REX6,PHIS6,HS6> 
PS 6P*PS6*<  TS6P/TS6) ** ( AK6/ < AK6-1. Q)  ) 
RH0*CAPSF*FS6P/IAJ*REX6*TS6PI 
IFCH6.GT.HS6)  GO  TO  31 
HR ITE (8, 20 1) P6, PS6P , T6, TS6P 
201  FO RMAT (2QH0S0RT  OF  H6-HS6  NEC  ,6E15 .6, 6H$S$SSf) 
CALL  ERROR 

31  V6*SQRT  <2. *6*AJ* (H6-HS6) ) 

A6P=HG6/ («H0»V6) 

0ELA6=A6P-A6 

V6  =  HG6/ ( RHG*  A6) 

AH6*V6/CS6 

AH62*AH6**2» 

IF(ABS<OELA6>*LE.0.Q02*Af!  GO  TO  33 

32  TS6P*T6/I1.0M< CAK6-1.0) /2. 0) *AM62I ) 

GO  TO  21 

33  TS6*TS6P 
PS6*PS6P 
GO  TO  36 

34  T6=T55 
P6=P55 
H6*H55 
S6=S55 
HG6=HG55 
PS6*PS55 
W6*V55 
AH6=  AH55 

IF  CIGASMX.EQ.O)  A6*A55 
GO  TO  36 

35  AM62  =  AM62G 
AH6*AH6G 
A6*A25*A55 

36  CALL  COAFBN 
RETURN 

END 


i 
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SU°ROUTINE  COAFBN 
COMMON  /  ALL/ 

1NORO  t IDES  * JOES  ,KQES  ,MOOE  yINIT  ,IOUHP  y IAMTP  » 
2 IGASNXylCBURNylAFTBNf IOCH  ylMCC  , IDSHOC, JHSHOC , NOZFLT , 
3ITRYSyLOOP£R,NONAP»NUMNAP,MAPEOG,TOLALLyERR(9> 


COHHQN/OES IGN/ 
1PCNFGU  y  PCNIGU 

yPCNCGU 

y  T4GU 

yOLMOl 

yOELFG 

yOELFN 

yOELSFC 

2ZF0S 

y PCNFDS 

,PRFCiS 

yETAFOS 

yNAFOS 

,PRFCF 

yETAFCF 

yHAFCF 

3ZI0S 

yPCNICS 

,pri.-  ; 

yETAIOS 

, MAIDS 

yPRICF 

yETAICF 

,  WAICF 

4ZC0S 

,PCNCOS 

, PRODS 

yETACDS 

yMACOS 

yPRCCF 

yETACCF 

yMACCF 

5T40S 

, HF60S 

yOTCOOS 

yETABOS 

y  MA3C0S 

yOPCODS 

yOTCOCF 

,ETA3CF 

6TFHP0S 

y  CNHPDS 

,ETHPOS 

yTFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

,  T20S 

7  IF  IPOS 

yCNlPCS 

yETIPOS 

yTFIPCF 

yCNIPCF 

yETIPCF 

yOHIPCF 

y T210S 

8TFLP0S 

yCNLPOS 

yETLPOS 

yTPL®CF 

yCNLPCF 

yETLPCF 

yOHLPCF 

,  T220S 

9T24DS 

, WFCOS 

,0T OUOS 

y  ETAOOS 

y  MA230S 

yOPOUOS 

yOTDUCF 

,ETADCF 

AT7DS 

y WFADS 

yOTAFOS 

yETAAOS 

yNG6C?-S 

yOPAFOS 

yOTAFCF 

yETAACF 

8A55 

,  A25 

»A6 

»A7 

»A8 

tA9 

»A2e 

y  A29 

CPS  55 

,  AM55 

yCVONOZ 

yCVMNOZ 

, ASSAY 

yASSAV 

y A28SAV 

y A29SAV 

COMMON  /  BACK/ 


1T55 

,P55 

yH55 

yS55 

yT25 

,P25 

y  H25 

yS25 

2  HFB 

,  MG55 

,FAR55 

,WFO 

y  MG24 

y  FAR24 

»P1 

yOUMB 

3T6 

»P6 

y  H6 

36 

»T7 

»P7 

»H7 

»S7 

4T8 

,P8 

,H8 

S8 

»T9 

»P9 

»H9 

»S9 

5  HG6 

,  MFA 

yMG7 

>FAR7 

yETAA 

, OPAFT 

yV55 

yV25 

6FS6 

»V6 

,  AM6 

,TS7 

,PS7 

»  V7 

,  AMT 

y  AM25 

7TS8 

,PS8 

.va 

,AH8 

,TS9 

y  PS9 

»V9 

y  AM9 

OVA 

,  FRO 

r  V  JO 

,FGMO 

yVJH 

yFGMN 

yFGPO 

,FGPH 

9FGM 

,FGP 

,HFT 

yMGT 

,FART 

tFG 

,FN 

,SFC 

DIMENSION  C  ( 9 ) 

OATA  AMORO/6HCOAF6N/ 

HORO-AHORO 

C(2i*0. 

0(31*0, 

AJ -778,26 
CAPSF*2116,217Q 
6=32. 17604  9 
HF6*MFB 

IF (IGASHX, GT ,0)  WF6*MF6*HF0 
HA6*MG6-WFfc 
C  CRY  LOSS 

MG6C*NG6*SCR1 (T6>/P6 
2  IFdOES.EQ.l)  HG6C0S*NG6C 

CPAFTsOPAFOS*  (WG6C/HG6C0S) 

IF (OPAFT . GT. 1. )  0PAFT*1, 

P7*P6*(1. -OPAFT) 

A7*A6 

FAR6*MF6/MA( 

CALL  FR0C0M(FAR6,T6»XX1,XX2, XX3y XX4, PHI6, XX6) 
NQA*MG6/A7 

C1*P7*SQRT  (G/  (T6*AJ| )*CAPSF 
AM  7  =  AH6 
TS7*Q.875*T6 
20  00  22  1*1,15 

CALL  FR0C0M(FAR6yT$7,CS7yAK7,CP7,fiEX7,PHIS7,KS7> 
V7  *AM7*CS7 
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fMrtat/Ai  iMwtu-«nr  k  ',««a4V»feW w\S*iajii3 


*W' 


^ftf^^SjgOCr*^  Vff4  *■ 


T7*T6f2000. 


HSCAL=H6-V7**2/  (2.*G*AJ> 

CELHS=HSCAL-HS? 

IF ( ABS(CELHS) .LE.Q. 0005* HS GAL)  GC  TO  24 

TS7=TS7+Q£LHS/CP7 

GO  TO  8 

4QAT=Cl*SQRT (AK7/REX7) *AM7/(i. ♦ < AK7-1. I *AH7**2/2. > ♦• 
i C< AK7U.I/<2.*tAK?-l.);i 
□IR=MQA/MQ AT 
EH=( WQA-WQAT) /MQA 

CALL  AFQUIMCUI ,AM7,EH , 0. , 30. ,0. G005,OIR,  AM7T, IGO) 

GO  TO  <26, 28 , 8) ,IGO 
AM7=AM7T 

IF  (AM7.GE. 1*  0)  AH7>0,9 

GO  TO  20 

PS7=P7/EXPdPHI6-PHlS7)/REX7) 

IFdAFTBN.GT.0l  GO  TO  4 

►  NON- AFTERBURNING 
T7=T6 

HF  A=  0  •  0 
FA«7=FAR6 
RG?  =  HG6 
GO  TO  13 

►  AFTERBURNING 

IFCIAFTBH. ;0.2)  T7*T6f2000. 

IF  (T7  «LE .T *»  GO  TO  3 
RH065=CAPSF*FS7/ (AJ*REX7*TS7> 

PS 65=PS7 
V65=V7 
Q(  2)  -  0. 

Q<  3) =0. 

IF  (T7  .GT  .4000.)  T7=4000. 

►  IF  DESIRED,  ENTER  CALCULATIONS  FOR  ETAA  HERE 

HV  =  <  <  <(U-,4594317E-1S*T7I-.2034U6E-15>*T7*.2783643E-U)*T7 
l*.  2Q51501E-07)*T7-. 2453116E-03)*T7- .9433296E-&1)  *T7* .1845537E+05 
CALL  THERHGIF7,HA,T7,XX1 ,XX2»Q ,0.0,0) 

FAR7=<HA-H6)/(HV*ETAA) 

IF  <F  AR7.  GT  •  Q  • )  GO  TO  6 

T7=T6 

GO  TO  5 

HFAX=FAR7*NG6 

IFdAFTBN.EO.ll  GO  TO  9 

ERRW=  (HF  A-HFAX) /NFA 

01 R=SQRT (WFA/NFAX) 

CALL  AFOUIR (0 (1 7 ,T7 ,ERRM,0 • ,2G . , 0 .0001 ,0XR,T7T,IG0) 

GO  TO  (7,10,81,100 
T7=T7T 
GO  TO  5 
CALL  ERROR 
WF  A=HFAX 

FAR7  =  (HF6*4FA)/NA6 
4G7  =  WG6*WF  A 

►  HOHENTUN  LCSS 

call  FRO CON (FAR7»T7,XX1,XX2,XX3»REX7,PHI7,H7> 

Rh  07  =  CAPSF*P7/(  A«J*REX7*T7) 

V7=HG?/(RHC7*A7) 
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0(21*0. 

0(31*0. 

FS7=PS65-0.01 

11  RH07-WG7/(V7*A7> 

H$7*H7-V7**2/ (2.*G*AJ) 

CALL  THERM01 1.0  »HS7  ,TS7,PHIS7, XX2 .1 , FAR7, 1) 

IF (TS7.GE. 301.J  GO  TO  110 

CALL  THERNCd.O  ,HS7 ,40Q.,PHIS7,XX2,1,FAR7,0) 
V7*SQRT  C  2.  ♦G*AJ*(H7-HS7)  ) 

GO  TO  11 

110  PS7*RK07*A4*REX7*TS7/CAPSF 

PS7A*PS65* <RH065*V65**2-KH07*V7**2> /<c  ®SF) 

Cl  R*  SORT (ABS (PS7/PS7A) ) 

£P=f PS7-PS7A )/PS7 

CALL  AFQUIRCQ (II, V7,EP,0.,5Q., 0.0005, DIR, V7T»IGO> 
V7=V7T 

IF ( V7 ,LT  .100.)  V7=100. 

GO  TO  dl,  12 , 6)  -j  IGO 

12  P7*PS7*EXP((PHI7-PHIS7)/REX7> 

CALL  FROCOH(FAR7,T57,CS7,XX2,XX3,XX4,XX5,KX6> 
AH7*V7/CS7 

13  CALL  THERM0tP7,H7,T7,S7,XX2,i,FAR7,0) 

IF (IOES.EQ.l)  WRITE (6»100)  NG6C0S 

100  FORMAT (19H0AFTERBURNER  DESIGN, 5X0H  WG6C0S*,E15.8> 

CALL  COMNOZ 
RETURN 
END 
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SUBROUTINE  COHNOZ 
COHHON  /  ALL/ 
1WGR0  ,IOES  ,JOE! 


f  HOOE  » INIT 


*  I  I  *«  4#  »* 

8TFLP0S 
9  T2  40S 
AT7  0S 


f  V/lt  A»  .. 

iCNLFoS 
i WF  COS 


t &  I  iruo 

»ETLP0S 
t QTDUDS 


0A55 

,A25 

»A6 

9  A7 

» 

A8  , 

A9 

»A28 

CPS  55 

?  AH  55 

,CV0N07  ,C¥MNQZ  , 

A6SAV  , 

A9SAV 

, A28SAV 

COHHON  /  SACK/ 

1 T55 

,P55 

*H55 

,S55 

t  T25 

»P25 

#  H25 

»S25 

2xr  8 

» WG55 

* FAR55 

,WF0 

t  MG24 

» FAR24 

tPi 

tOUHB 

3T6 

,F6 

,H6 

tS6 

,T7 

»P7 

»H7 

tS7 

4T8 

,P8 

»H8 

,S8 

»T9 

,P9 

,H9 

»S9 

5  4G6 

,PFA 

»HG7 

,FAR7 

*ETAA 

,OPAFT 

,V55 

,V25 

6FS6 

,V  6 

,AH6 

,TS7 

,PS7 

»V7 

,AH7 

»  AH25 

7  TS  8 

>PS8 

» V8 

i  AH8 

,TS9 

,PS9 

»V9 

»  AH9 

8VA 

,?RO 

tVJO 

,FGH0 

»  VJH 

,FGHH 

,FGPD 

»FGPM 

9FGH 

jFGP 

,NFT 

,HGT 

»FART 

»FG 

»fn 

,SFC 

DATA 

AMQR0/6HHN0ZZL/ 

*ORO=AWQRO 
A8SAV=A8 
A9SAV=A9 
NOZH=0 
IMN0Z  =  Q 


CALL 
1T8 
GO 

CALL 
1 T  3  * , 

IHSHOC 
GO 

CALL  ERROR 
I9=T8 
H9  =H8 
F9=P8 
S9  =  S5 
TS9=TS8 
PS  9=PS8 
V9=V8 
AH9  =  AP8 
A9  =  A  8 

IHSH0C=IC0N*3 


NO£M=0 

IMNOZ=0 

IF (N0ZFLT.EQ.1.0S.N0ZFLT.EQ.3)  N0ZH=1 
IFilOES.EO.l.OR.IAFTBN.GT.Q.OR.NOZH.EQ.l)  IHN0Z=1 
IF (IMCD.EG.l)  GO  TO  1 

*.L  CONVRG(T7,H7,P7,S7,FAR7,MG7,Fl,lMNOZ,Ad,  P7R, 
rH9  »P8 »S6, TS8  »PS8» V8»  AM8 » ICON) 

TO  (3, 3, 3,2)  t  ICON 

.L  CONOI W7,H7,P7,S7,FAR?,NG7,Fi,IMN07.,A8,A9>P7R, 
,H8,P8,S8,T9,N9,P9,S9,TS8fTS9,PS8,PS9fV8, V9,AM8,AN9, 

5H0C=IC0N 
TO  (4, 4, 4, 2)  , ICON 
(  F  4ft  OR 


ICON) 
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SU3R0UTINE  PERF 
COMMON  /  ALL/ 

1MORU  tIOES  * JOES  ,KOES  ,MOOE  ,INIT  ,IOUfP  ,IANTP  , 

2  IGASHX s  I  DBliRN  y  IAFTBNy  J.OCQ  ,IHCO  y IOSHOC, IHSHQGyNOZFLT, 

3  IT  RYS  »LO OP £R , NONAP*  NUMNAPy  MAPEOGy  TOLALL yERR  <9 ) 

COMMCN/OES JGN/ 


1PCNFGU 

♦PCNIGU 

yPCNCGU 

yT4GU 

yOLHOl 

yOELFG 

yOELFN 

yOELSFC 

2ZF0S 

, PC  MFCS 

,PRFOS 

yETAFOS 

y  MAFDS 

yPRrCF 

,ETAFCF 

,HAFCF 

3ZI0S 

•PCNICS 

yPRIOS 

yETAIOS 

yMAIOS 

yPRICF 

yETAICF 

y  HAICF 

4ZCGS 

i PCNCOS 

I FRCDS 

yETACOS 

yNACOS 

yPRCCF 

,ETACCF 

,MACCF 

5T4  0S 

t  MF  EOS 

yOTCOOS 

«ETA80S 

y  MA3CPS 

yOPCOOS 

yOTCOCF 

yETABCF 

6TFHP0S 

t  CNHPCS 

yETHPOS 

yTFHPCF 

yCAHPCF 

yETHPCF 

yOMHPCF 

,T20S 

7TFIPCS 

♦ CN IPCS 

yETIPOS 

y  TFIPCF 

yCMPCF 

yETIPCF 

yOHIFCF 

,T210S 

8TFLP0S 

,CNLPOS 

yETLPOS 

yTFLPCF 

yCNLPCF 

yETLPCF 

yOHLPCF 

,T220S 

9T2  40S 

,HFOOS 

,OTOUOS 

yETAOOS 

y H A230S 

yOPOUOS 

,DTOUCF 

yETADCF 

AT7  0S 

t  MF  60S 

*DTAFOS 

yETAAOS 

y  MG6C0S 

,OPAFOS 

yOTAFCF 

yETAACF 

BA55 

,A25 

,A6 

t  A7 

*A« 

.A9 

yA29 

,A29 

CPS  55 

,  AM  55 

yCVONOZ 

yCVHNOZ 

y  A  8S  A  V 

y A9SAV 

y A28SAV 

y A29SAV 

COMMON/ 

FRONT/ 

1T1 

,P1 

jHi 

»S1 

tT2 

,P2 

»H2 

»S2 

2T21 

,P21 

y  H21 

» S21 

,T22 

yP22 

yH22 

y  S22 

3T3 

,P3 

y  H3 

,  S3 

»T4 

,P4 

,H4 

»S4 

4T45 

,P4'3 

,H45 

y  $45 

*T5 

,P5 

»H5 

»S5 

5T55 

*P55 

,H55 

y$55 

yBLF 

yBL  I 

y  BLC 

,9L0U 

6  CNF 

» FR  F 

yETAF 

,MAFC 

yMAF 

yBLOUI 

ydLOUC 

»  BLOB 

7CNI 

» PR  I 

yETAI 

yMAIC 

y  MAI 

yBLOBI 

yBLOBC 

,MA3 

8CNC 

,PRC 

,ETAC 

s  MACC 

y  M  AC 

,ETAB 

yOPCCM 

,MG4 

9CNHP 

» £T  ATHF 

,OHTCHP 

yOHTC 

yeLHP 

yBLHPI 

,BLHFC 

,  FAR4 

ACNIP 

.ETATIP 

yOHTCIF 

yOHTl 

y  BLIP 

yBLIPI 

yBLIPC 

yOUMF 

BCNLP 

,ETATLF 

yOHTCLP 

yOHTF 

yBLLP 

yBLLPI 

yBLLPC 

yCS 

CMG45 

, FAR45 

,MG5 

y  FAR5 

y  MG55 

,FAR55 

yHPEXT 

1  AM 

oaltp 

,ETAR 

,ZF 

yPCNF 

,ZI 

,PCNI 

»ZC 

yPCNC 

EMFB 

f  TFFHF 

yTFFIP 

,TFFLP 

yPCBLF 

yPCBLI 

y PC BLC 

yPCBLDUl 

FPC3L0UC 

, PC  EL  C8I y  PC8L03C 

:,PCBLHPI,PCBLHPC 

;,PC3LIPIyPCBLlPC,PCBLLPI 

G  PC  81  L  PC 

COMMGN/ 

SIOE/ 

1XP1 

,XMAF 

,XMAI 

yXNAC 

yXELF 

yX3L0U 

yXBLOUI 

yXBLOUC 

2XH22 

.  XH3 

r  XT21 

y  XP21 

y  XH21 

yXS21 

.OUMSl 

,OUMS2 

3.  T2  3 

t  F23 

y  H23 

y$23 

y  T  24 

yP24 

,H24 

,S24 

4T2  5 

,P25 

»H25 

yS25 

yT28 

,P28 

yH28 

V«S28 

5T2  9 

,F2S 

y  H29 

yS29 

» 0LMS3 

yOUMS4 

y GUMS 5 

*0uMS6 

6  MAO 

,  MFC 

y  MG2  4 

,FAR24 

yETAO 

yOPOUC 

y BYPASS 

,OUMS7 

7TS2° 

» PS  28 

yV28 

f  AM26 

,TS29 

yPS29 

y  V29 

,AM29 

COMMON 

/  PACK/ 

X  XT  55 

XF55  , 

XF55  ,XS55  ,XT25  ,XP25 

*  t XH25 

t  XS25 

» 

X  XM  FP 

a  MG  55  , 

XFAR55yXMF[>  ,XMG24  ,XFAR24,XXP1 

(OUMB 

t 

3  Tfa 

P6  , 

H6  ,S6 

»  »T7 

>P7 

»  H7 

»S7 

» 

4  T9 

F  8  , 

H8  ,S8  y  T9 

»P9 

*H9 

»S9 

» 

5  MG  6 

MF  A  , 

MG7  ,FAR7  ,ETAA  » OPAFT  ,V55 

y  V25 

t 

6  FS  6 

V6  » 

AHG  yTS?  ,PS7  ,V7 

y  AM7 

y  AH25 

» 

7TS8 

DS8  j 

V  8  y  AM8  ,TS9  ,PS9 

»V9 

t  AM5 

» 

8  VA 

PRO  f 

VJO  yFGMO  yVJM  y  FGMM 

1  ( FGPO 

yFGPM 

> 

9FGM 

F  GP  , 

HFT  yWGT  yFART  ,FG 

»FN 

,SFC 

CAT  A  A> 

1CRO/6F 

FERF/ 

MORtl-'AWQRO 
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0=32.17404? 

CAPSF=2116  *2170 
XFT*KF8»HF9**FA 
HAT  =  HAF-BL0B 
HGT=HAT*HFl 
FA RT =NFT/H  AT  « 

VA*AH*CS  , 

FRD*VA*HAF  i& 

VJM=CVMN0Z*,V9 

FGHH=VJM»WG7/G 

FGPH=CAPSF*(PS9-Pi)*£9 

IF (XGASMX. G7  *G>  GO  TO  i 

VJO=CVQNGZ*V29 

FGK0=VJ0*HG24/G 

FGPO=CAPSFMFS29-Pil*A2  3 

FGN=FGHH+FGMO 

FGP=FGPM*FGPD 

FG=FGF+FGP 

FN=FG~FRO 

SF  C=3600 •  *  WFT/FK 

FG=DELFG*FG 

FN=OELFN*FN 

SFC*DELSFC*SFC 

CALL  OUTPUT 

CALL  ERROR 

RETURN 

ENO 
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SUBROUTINE  CCNOUT(ICON) 

CIrlEHSION  4OR0Y  (345)  ,  IOUTU50)  ,A0UT(6>  ,  WOUT  ( 6 )  ,P  ARAM  ( 96)  , 

1  P  ARAM2< 121) , PARAM3 (56) , PARAH4  (72) 

COMMON  /  ALL/ 

1HORO  ,I0ES  » JOES  ,  KDES  ,MOO£  ,INIT  ^OU^P  ,IAMTP  , 

2  IG ASMX, 10BURN,ISFTBN,IDCO  ,IMCD  , IDS HOC,  I MS HOC  , N0ZFL7 , 
3ITRYS,LOOP£R,NOtMAP,NUHMAP,HAPE  OG,  T0LALL»ERR<9) 

COMMON/OES IGN/ 


iPCNFGU 

,PCNIGU 

,  PCNCGU 

,  T4GU 

, QUMDi 

»DELFG 

,D£LFN 

,DELSFC 

2ZF0S 

i PCNFOS 

,PRFOS 

, ETAFOS 

, H AFOS 

>PRFCF 

, ET  AFCF 

, HAFC  F 

3ZI0S 

, PC NICS 

,PRIDS 

, ETAIOS 

, MAIDS 

jPRICF 

, ETAICF 

,WAICF 

4ZC0S 

, PCNCDS 

, PRC OS 

, ETACDS 

, WACOS 

rPRCCF 

, ET  ACCF 

, HACC  F 

5  14  OS 

, MF8DS 

J.CTCODS 

, ETABOS 

.NA3COS 

,DPCOOS 

, OT  COCF 

, ET  A8CF 

61FHP0S 

, CNHPDS 

,ETHPOS 

, TFHPCF 

, CNHPCF 

yETHPCF 

, OHHPCF 

»  T2DS 

7  TF  IPOS 

, CN IPOS 

,ETIPOS 

, TFIPCF 

,CMPCF 

»£T IPCF 

, OHIPCF 

,T2).DS 

8TFLP0S 

, CNLPOS 

, ETLPOS 

, TFLPCF 

,CNLPCF 

,ETLPCF 

, DHLPCF 

,T220S 

9T240S 

,  HF  COS 

, OTOUDS 

t ETADOS 

, HA23DS 

.OPOUOS 

, DYOUCF 

,ET«DCF 

AT?  OS 

, MF  ADS 

, OTAFOS 

, etaaqs 

, HG6C0S 

jDPAFDS 

, GT  AFCF 

,  ET  AACF 

B  A5  5 

,  A25 

,A6 

,A7 

,  A  8 

» A9 

,  A28 

,  A29 

CPS  55 

,  AM55 

tCVDNOZ 

, CVMNOZ 

,  AfiSAV 

, A9S AV 

, A28SAV 

, A29S  A  V 

COMMON/  FRONT/ 

1T1 

»P1 

.HI 

,S1 

» T  2 

>P  2 

>H2 

>S2 

2  T21 

,P21 

,H21 

,  S21 

,T22 

»P22 

,  H22 

» S22 

3T3 

,P3 

,H3 

,  S3 

,T4 

,P4 

,H4 

,S4 

4T4  5 

,P4  5 

,H45 

,  S45 

»T  5 

,P  5 

>H5 

» S3 

5  TO  5 

,F55 

-H55 

,S55 

,BLF 

,  BLI 

» BLC 

t  BLOU 

6  CNF 

,PRF 

,  ETAF 

,  HAFC 

,  W  Ap 

,3LDUI 

,  3L0UC 

j  BLOB 

7  CM  I 

,  PR  I 

,ETA  I 

,HAIC 

,WAI 

, BLOB I 

, BLOBC 

» W  A  3 

8  CNC 

,  PRC 

.ETAC 

,HACC 

,WAC 

»E1  AB 

, DPCO  M 

,WG4 

9  CN  HP 

,  ET  AT  HP 

, OHTCHP 

,  DHTC 

,BIHP 

,BLHPI 

yBLHPC 

,  FAR4 

A  CM  IP 

,ETATIP 

jOHTCIP 

,  OHTI 

,  BLIP 

,BLIPI 

, BLIPC 

,  DUMF 

B  CHIP 

,  ET  ATLP 

, DHTCLP 

,  OHTF 

,  BLLP 

,8LLPI 

,  8LLPC 

,CS 

C  WG  45 

,  FAR45 

,  NG5 

,FAR5 

,  WG55 

,FAR55 

, HPEXT 

,  AM 

OAt  TP 

,ETAR 

»ZF 

,  PCNF 

>ZI 

,PCNI 

>zc 

,PCNC 

E  we  a 

,  TFFHP 

, TFF IP 

, TFFLP 

,PCBLF 

,PCBLI 

,PCBLC 

, PC9L  C 

F^'.  flL  GUC  »PC  ELCBI  ,  PC8L0BC 

,FCBLHPI,PCBLHFC 

,PC8L.IFI,PCBLIPC>PCBLL- 

GPf  ‘U.LPC 

COMMON/  SIDE/ 

1  XHl 

,  XWAF 

,XHAX 

,  XHAC 

,xblf 

,  XBLDU 

,  X8L0UI 

,  X8L0UC 

2  xh  22 

,  XH2 

,  XT21 

,XP21 

,  XH21 

,XS2i 

, DUMS1 

, DUMS  2 

3  T  3 

i  P2  3 

,  H23 

,  S23 

>7  24 

>P24 

,  H24 

>  S24 

4  ' '  5 

,F25 

,H25 

,  S25 

,T28 

,P28 

,H28 

,S28 

5  T/9 

,P29 

,  H29 

,S29 

t 0LMS3 

,  OUMS4 

, DUMS5 

, 0UMS6 

6  w  ■  C 

,  WFC 

,  NG24 

, FAR24 

,  ETAO 

,OPDUC 

,  BYPASS 

,OUMS? 

7  T '  2  3 

»  PS  28 

,V  28 

,  AM28 

,  TS29 

,PS29 

,  V29 

,  AM29 

C  MM  ON 

/  BACK/ 

XXT  55 

>  X  P5  5  , 

X  H55  ,XS55  , XT2  5  ,XP25 

,  XH2  5 

,XS25 

t 

X  xwF8 

,  X  HG  55  , 

XFAR55,XHFO  ,XWG24  ,XFAR24,XXP1 

>  OUM  8 

t 

3  Tf 

,P6  , 

H6  ,S6 

» T7 

» P7 

,H7 

,S7 

> 

4T8 

,P0  » 

H8  ,sa 

» T9 

>P9 

,H9 

,S9 

> 

5  VtC»  6 

,  HFA  , 

HG7  ,FAR7  , ET AA  ,OPAFT  ,V55 

,  V25 

> 

6  P‘“  6 

iV6  , 

A  P.6  ,  TS7  ,PS7  ,V7 

,  AH7 

,  AM25 

> 

7  TO  8 

,  PS8  , 

V  8  ,AH8  , TS9  ,PS9 

,V9 

,  AM9 

> 

8  VA 

,FRO  , 

VJO  ,FGMO  , VJM  , FGMF 

,FGPD 

,TGPH 

> 

9  F  N  M 

,fgp  , 

HFT  ,WGT  ,FART  . FG 

>  FN 

,  SFC 
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EQUI  VALENCE  <PARANi  Q?  ,  PCNFGU)  ,  (P  AR  AM2  <  1)  ,  T  1 )  ,  {PARAM3U)  , XP1 >  , 
1  (PARANA (1),XT55> 

DATA  (WORD Y ( X) , 1=1, 96) / 


17HPCMFGU 

, 7HPCNIGU 

,7HPCNCGU 

, 7HT  4GU 

, 7HOUM01 

,  7H0ELFG 

9 

2  »HD£LFN 

, 7H0ELSFC 

,7H2FDS 

, 7HPCNF0S 

, 7HPRF0S 

» 7HET  AFDS 

9 

37H  MAP  OS 

, 7HFRFCF 

,7HET  AFCF 

, 7HW AFCF 

,7H2I0S 

, 7HPCNI OS 

9 

4  7HPRI0S 

, 7HETAIQS 

y 7HWA IQS 

, 7HP  RICF 

, 7HET  AICF 

, 7HHAICF 

9 

5  7M2C05 

, 7HPCNCSS 

,  7HPRC0S 

, 7HETAC0S 

,7HKACDS 

v  7HPRCCF 

y 

67HETACCF 

,7HkACCF 

,7HT4DS 

, 7HHFBDS 

,7HOTCCOS 

,7HETAB0S 

9 

7  7HWA3C0S 

,7HCPC00S 

, 7H0TC0CF 

,7HETA&CF 

,7HTFHPDS 

, 7HCNHP0S 

9 

87HETHP0S 

,7HTFHPCF 

,7HCNHPCF 

,7hE  THPCF 

, 7H0HHPCF 

,7HT2DS 

9 

97HTFIPCS 

,  7HCMPCS 

,7H£T IPUS 

,  7HTFIPCF 

»7HCNIPCF 

, 7HET IPCF 

9 

i 7H0HIPCF 

, 7H7210S 

,7HTFLP0S 

, 7HCNLPDS 

,7HETLPOS 

$  7HTFLPCF 

9 

2  7HCNLPCF 

,7HETi.PCF 

,7HDHLPCF 

, 7HT  220S 

,7HT240S 

,7HWFDOS 

9 

37HDT0U0S 

, 7HETA0QS 

j  7HHA230S 

, 7HDP0U0S 

,7HDT0UCF 

, 7HET  ADCF 

9 

47HT70S 

, 7HWFA0S 

,7HDT  AFOS 

, 7HETA AOS 

,7HHG6C05 

,7H  OPAFDS 

9 

57HDTAFCF 

, 7HETAACF 

» 7HA55 

, 7NA25 

,7HA6 

,7HA7 

9 

67HA8 

,  7HA9 

, 7HA28 

, 7HA29 

,7HPS55 

, 7H AN55 

9 

77HCVDN02  , 7HC VMN02 
OATA  tWORDY(I) ,1=97 

,7HA8SAV 

,150)/ 

,7HA9SAV 

, 7HA28SAV 

,7HA29SAV 

/ 

17HT1 

,  7HP1 

,  7HH1 

,  7HS 1 

,  7HT  2 

,7HP2 

9 

27HH2 

,  7H32 

,7HT21 

, 7HP  21 

r7HH21 

,  7HS21 

9 

37HT22 

,7 HF22 

, 7HH22 

» 7HS22 

,7HT3 

*  7HP3 

$ 

4  7HH3 

,  7HS3 

,  7KT  4 

,  7HP4 

,7HH4 

,  7HS4 

9 

57HT45 

, ?Hf 45 

,  7HH45 

, 7HS45 

,7MT  5 

,  7HP5 

9 

6  7HH5 

,  7HS5 

,7HT55 

, 7HP55 

,7HK55 

>  7HS55 

9 

77H0LF 

, 7N8LI 

, 7HBLC 

, 7H8L0U 

, 7HC  NF 

, 7HPRF 

f 

8  7HETAF 

, 7H4 AFC 

,7HWAF 

, 7HBLOUI 

, 7KBL0UC 

, 7HBL0B 

t 

97HCNI  , 7HPRI  ,7HETAI 

OATA  IWOROY(I), 1=151, 217)/ 

, 7HKAIC 

,7HHAI 

,  7HBL08I 

/ 

1  7HBL0EC 

, 7HWA3 

, 7HCNC 

,7HPRC 

,7HETAC 

, 7HNACC 

t 

27HHAC 

, 7HETA8 

,7H0PC0M 

,7HNG4 

•  7HCNHP 

, 7HET  ATHP 

9 

37H0HTCHP 

, 7HCHTC 

,7H8LHP 

, 7HBLHPI 

,7HBLHPC 

,7HFA«4 

9 

47HCNIP 

, 7HETATIF 

,7HOMTCIP 

,7K0HTI 

,7HBLIf 

, 7HBLIPI 

9 

57H8LIPC 

, 7HCUMF 

, 7HCNLP 

r  7HE7ATLP 

,7H0HTCLP 

, 7HDHTF 

9 

67HBLLF 

, 7HBLLP I 

, 7H8LLPC 

,  7HCS 

,7HHG45 

, 7KFAR45 

9 

77HWG5 

, 7HFAR5 

,7HHG55 

, 7HF  AR55 

, 7HHPEXT 

,  7HAN 

9 

87HALTP 

, 7HETAR 

,  7H2F 

, 7HPCNF 

,7H2 1 

, 7HPCNI 

7 

97H2C 

, 7HPCNC 

,7HHFB 

, 7HT  FFHP 

,7HTFFIP 

,  7HTFFLP 

9 

17HPCBLF 

, 7HPCBLI 

, 7HPC8LC 

, 7HPCBLQUI 

,7HPCBL0UC 

,7HPCBL0BI 

9 

2  7HPCBL0BC, 7HPCBLHPI , 7HPC61HPC 
37HPCBLLPC/ 

OATA  (WOROVCI) » 1=218,273)/ 

, 7HPCBLIPI 

,7HPC8LIPC 

, 7HPC8Li.PI 

t 

17HXP1 

, 7HXWAF 

,  7  H  X  H  A  t 

, 7HXKAC 

, 7HXBLF 

, 7HXBLOU 

9 

2  ?H  XBLOUI 

, 7H  XELGUC 

,  7NXH22 

, 7HXH3 

, 7HXT21 

, 7H  XP21 

9 

37HXH21 

, 7HXS21 

, 7HCUH31 

, 7M0LMS2 

,7HT23 

, 7HP23 

9 

47HH23 

, 7HS23 

» 7HT  2  4 

, 7HF  24 

, 7HH24 

, 7HS24 

• 

57HT25 

, 7HP25 

,  7HH2  5 

, 7HS25 

,7HT28 

,FHP28 

9 

67HH28 

, 7HS28 

, 7HT  2  9 

»7nr:9 

t 7HH29 

, 7HS29 

9 

7  7HOUMS3 

, 7HCUMS4 

, 7H0UMS5 

, 7HDLMS6 

,7HWAU 

s  7HHF0 

9 

8  7H  KG  2  4 

5  7H FAR 2 4 

,7HETA0 

, 7HOPOUC 

,7HBVPASS 

9  7HOUMS7 

9 

97HTS28  , 7HFS28  ,7HV28 

17HV29  , 7HAH29  / 

GATA  (WOROY(I) ,1=274,345)/ 

, 7HAM2  8 

,7HTS29 

, 7HPS29 

9 

17K  X7  55 

{ 7HXP55 

, 7HXH55 

» 7HX S55 

,7HXT25 

, 7KXP25 

9 

30 


, 7HXWFD  , 

*  7HP6  , 

»7h S7  , 

,7HP9  , 

,  7HFAR7  , 

,7HV6  , 

, 7H AM25  , 

, 7HPS9  , 

, 7FFGH0  , 

,7MFGP  , 

, 7HSFC  / 

:0  TO  U  ,12) , ICON 
c  ***  INPUT  SECTION 
1  HD  <+  N=1,15Q 
NUM  =  N 

kEAO<5,1QO)AIN, CHANGE 
T>"  (AIN. EG.  THEENO  >  GO  TO  5 
00  2  J=i, LIMIT 
UJ- J 

IF (AIN.EQ. MOROY <J)>  GO  TO  3 

2  CONTINUE 

5-RITE  <6 f  101V  AIN 
GO  TO  4 

3  1UUT (NUH)= JJ 

IF (CHANGE, Nfc. BLANK)  HQROY ( JJ)=CHANGE 

4  CONTINUE 
hRITE<6,102) 

5  NUM=NUM-1 
RETURN 

C  *»♦  OUTPUT  SECTION 

12  IF  (NIJP.EQ*  1)  GO  TO  16 

N=  hUH 

J=  6 

CO  IS  1*1,  NUN  ,6 
IT  (N.CT.6)  GC  TO  13 

N 

13  N=N-6 

rr’  :  k  =  i,  j 

t  -  ]  *  K  - 1 
“•  10UT  (L) 

5.QU7  (  K)  =  ><OfiOY  (M) 
iH.GT.96)  GO  TO  20 
.  H;T  (  K )  =  PA  RAMI ( M) 

•'•0  5  C  14 

20  :*  (H.GT.217)  GO  TO  21 
("N  =  M-96 

sour (  K ) =PA RA M2 ( MN) 

»<*»  TC  14 

21  IF  (M.Gf.273)  GO  TO  22 
MN  =  M  •*  2 1 7 

A' UT  ( K )  =  PA  RAM 3  f  MM 
hi  TO  14 

22  HN:M-273 

A'1  •:)  <  K )  =  PA  RA  M4 1 NN) 


2  7H  XH 2  5 

, 7HXS25 

, 7H  XHFB 

, 7HX4G55 

,7HXFAR55 

3  7NXWG24 

, 7HXFAR24 

, 7HX  XPi 

, 7H01MB 

,7HT6 

4  H6 

,  7HS6 

,  7HT  7 

,  7HP 7 

,  7HH7 

5  7H  T  8 

,  7HF 8 

i  7HH  8 

,  7HS  fl 

,  7HT  9 

6  *ri  H9 

,  7HS 9 

,  7HWG6 

, 7HWFA 

,7HMG7 

7  ,‘HET  A  A 

, 7HCPAFT 

,  7HV55 

,7hV25 

,7HPS6 

8  7H  A  *86 

, 7HTS7 

,  7HPS7 

» 7HV7 

,7H AM7 

97HTS8 

, 7HFS8 

s  7HV  6 

, 7HAM8 

,7HTS9 

1  7HV9 

, 7HAM9 

,7  HVA 

, 7HFRO 

, 7H V JD 

?  ’H  J  H 

, 7HFGMH 

,  7HFGPD 

,  7HFC-PM 

, 7HFGM 

3  7HHFT 

, 7HNGT 

, 7HF  ART 

,7HFG 

,  7HFN 

OA A  THEENO,  BLANK, LIMIT/7HTHEEND  ,7H  ,345/ 


8  L 


14  CONTINUE 

WRITE  (6,103) (WOUT(K) ,K=i,J> 

WRITE  (6,10  4)  (AOUT(K)  ,K=1,J) 

IF tN.LE.O)  GC  TO  16 

15  CONTINUE 

16  RETURN 

100  F0RMAT<A7,7X,A7> 

101  FORMATS. OH  0TH£  WCRD  ,A7,26H  NOT  FCUNO  IN  COMMON  ARRAY) 

102  FORMAT Cd2HOERROR  IN  CONOUT  INPUT) 

103  FORMAT (1H  ,25XA7,5( 8XA7) ) 

104  FORMATUH  ,fcOX6E15.6) 

END 


SUBROUTINE  ERROR 

DIMENSION  TRASH1C96)  ,TRASH2<121>  ,7RASH3<56>  ,TRASH4<72) 
COMMON  /  ALL/ 

1WORO  )  IOE  S  ,  JOES  ,KDES  ,MOOE  y  l'NIT  ,IDUKP  ,IAMTP  , 

2  10  ASMX,I0BLRN,IAFTBN,IOCD  ylMCD  , IOSHOC, IMSHOC , NOZFLT , 

3  11  RyS,LOOPER, NOMAP, NUHMAPyMAPEOG, T0LALLyERR<9) 

CjmmoN/OESIGN/ 


i'-CN^Gt 

t PC  NIGU 

, FCNCGU 

,  T4GU 

yOLMOl 

yOELFG 

yOELFN 

yDELSFC 

Z2F-JS 

,  PCNFCS 

,PRFOS 

yETAFOS 

yHAFOS 

yPRFCF 

y  ETAFCF 

,WAFCF 

3  nos 

i PCNIOS 

yPRIOS 

yETAIOS 

, RAIDS 

yPRICF 

yETAICF 

yHAICF 

4ZC0S 

i PCNCOS 

yPRCOS 

yETACDS 

yHACDS 

yPRCCF 

yETACCF 

y  HACC  F 

5  %1S 

» WF80S 

yOTCODS 

y  ETABDS 

y  WA3C0S 

•DPCODS 

y  DTCCCF 

>  ETABCF 

6  to  ho  OS  j  CNHPOS 

,ETHPDS 

y  TFHPCF 

yCNHPCF 

,ETHPCF 

yOHHPCF 

yT20S 

7:r*oas  » CN IPOS 

yETIPDS 

yTFIPCF 

yCMPCF 

yETIPCF 

yOHIPCF 

y  T210S 

8  T f  L o 0 S  yCNLPCS 

yETLPOS 

yTFLFCF 

yCKLPCF 

yETLPCF 

yOHLPCF 

y  T220S 

9 1 2  4  0  S 

t HF  QOS 

yDTDUOS 

,ETAODS 

y  X A230S 

yOPOUDS 

yDTOUCF 

yETADCF 

Al/bS 

y  WF  ADS 

yOTAFDS 

, ETAAOS 

y  HG6C0S 

yOPAFOS 

yOTAFCF 

yETAACF 

BAS- 5 

,A25 

,A6 

,A7 

y  A  8 

» A9 

y  A28 

yA29 

CPi-59 

,  AM55 

yCVONOZ 

,CVMNOZ 

yAeSAW 

y  A9S A V 

y A28SA V 

, A29SAV 

COMMON/  FRONT/ 

111 

*  FI 

t  Hi 

♦  Si 

»T2 

»P2 

i  H2 

»S2 

2T21 

,P21 

y  H2 1 

yS21 

,  T22 

,P22 

» H22 

yS22 

3T3 

,P3 

y  H3 

y  S3 

»T4 

*P<* 

»  H4 

» S4 

4  T1*  5 

» P4  5 

,H45 

yS45 

»T5 

»P5 

,H5 

»S5 

5  T5  5 

,P55 

i  HS5 

y  S55 

,BLF 

,BLI 

,BLC 

y  BLDU 

6  CNF 

»  PR  F 

,ETAF 

yWAFC 

yXAF 

yBLOUI 

y  BLOUC 

y  BLOB 

7  CN  1 

» PR  I 

yETAI 

yWAIC 

,HAI 

yBLOBX 

y  BLOBC 

y  WA3 

8  CN  C 

» PRC 

,ETAC 

,  HACC 

y  H  AC 

yETAB 

yOPCOM 

y  HG4 

9C  .HP 

.ETATHP 

,OHTCHP 

yOHTC 

,  BLHP 

yBLHPI 

ybLHPC 

y  FAR4 

ACM  IP 

.ETATIP 

yOHTCIP 

yOHTI 

yBLIP 

y  BL I P I 

yBLIPC 

yOUMF 

BCMP 

.ETATLP 

,OHTCLP 

,OHTF 

yBLLP 

yBLLPI 

y  BLLPC 

y  CS 

C  H»>  4  5 

i  FAR4S 

,WG5 

y  FAR5 

,HG*>5 

yFAR55 

yHPEXT 

,  AM 

OAL  TP 

,ETAR 

,ZF 

yPCNF 

fZl 

yPCNI 

tic 

yPCNC 

EkFB 

i  TF  FHP 

yTFFIP 

yTFFLP 

yPCBLF 

»PC3LI 

yPCBLC 

yPCBLCb 

FP  Bl  SUC j  PC  ELOBI yPCBLOBC 

y  PCBLHFI 

yPCBLHPC 

yPCBLIFI 

yPCBLIPC 

yPCBLLP 

GP'  BL  L  CC 

C  i  MM 0 N/  S IOE/ 

1XP1 

,  XWAF 

yXWAl 

y  XHAC 

yXBLF 

yXBLOU 

,X8L0UI 

yXBLOUC 

2XM2,: 

,  XH3 

yXT21 

y  XP21 

yXH2l 

y  XS2 1 

yOUMSl 

y  0UMS2 

3  T .  7 

,P23 

,H23 

y  S23 

yT24 

,P24 

yH24 

yS24 

4T<  ^ 

,P25 

,H25 

y  S25 

y  T28 

yP28 

,H28 

y  S2  8 

5T.- 

,r-  29 

,H29 

,S29 

r  0LMS3 

yO’JMS4 

,0UMS5 

y  OUMS  6 

6w;  i 

,  MFC 

y  HG24 

y  FAR24 

yETAO 

yOPOUC 

, BYPASS 

y  0UMS7 

7T 

,  PS28 

>  V28 

y  AM28 

y  TS29 

yPS29 

y  V29 

y  AM29 

Ct  MM  J 

i  /  EACK/ 

XX'  5- 

-XP55  , 

XH55  yXS55  y  XT25  ,  XP25 

y  XH25 

yXS25 

» 

xxm 

, X  HG  55  , 

XFAR55yXHF0  ,XWG24  ,XFAR24,XXP1 

yOUMB 

» 

3  It 

»P6  , 

H6  fS6 

>  T7 

,P7 

» H7 

»S7 

» 

4T* 

»PM  i 

H8  rS8 

»T9 

,P9 

»  H9 

»S9 

» 

5  Wb  0 

,  UFA  , 

WG7  ,FAR7  ,ETAA  , DRAFT  ,V55 

y  V25 

t 

6  PS  6 

»V6  , 

AM6  ,TS7  y  PS7 

»V7 

y  AM7 

y  AM25 

» 

7  Tc  S 

>  P  S8  , 

V  8  ,AH8  y  TS9 

y  PS9 

>V9 

,AM9 

t 

8VA 

>  FRO  , 

VJO  y  FGMO  ,VJM 

,~GMM 

y  FGPO 

y  FGFM 

t 

9FC  m 

,  F  GP  , 

HFT  ,HGT  yFART  , FG 

»FN 

,SFC 

EC  <1  VALENCE  (TRASHKi)  ,Pf,NFGU) ,  (TR  ASH2  ( i ) ,  Ti )  ,  (TRASH3  Cl) 

yXPl) 
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EQUIVALENCE  (TRASH4 <1> , XT55) 

CAT A  AW0RQ/6HC0HH0N/ 

WRITE  (6,1811)  WORD 
WORD*AWORD- 

WRlTE<6,i02)NORQ,ZF,PCNF,ZI»PCNI,2C,PCNC,T4,MODE 
WRITE  (6*  1Q'3> 

WRITE (6, 104) (TRASH1 (I), 1=1,98) 

WRITE  (6,10$) 

WRITE (6, 104) (TRASH? (I), I =1,121) 

WRITE  (6»  105) 

WRITE (6,104) (TRASH3 (I) » 1=1,56) 

WRITE  (6,  1C3) 

WRITE  (6,  104)  (TRASH4  (I)»I=1,?2) 

WRITE  (6 » 103) 

WRITE (6»  106)  LCOPER 
IF(IOUMP.£q.O)  GO  TO  2 
WRITE  <6, 10  5) 

CALL  SYG (2) 

2  CALL  ENGBAL 
RETURN 

100  FORNAT(2SHOAK  ERROR  HAS  BEEN  FOUNC  IN  ,A6> 

102  FORMAT(1HO,A6,9X,7E15«6,I4) 

103  FORHAT(2HO  ) 

104  FORMAT(1HO,8E15.6) 

1C5  FORMAT (1H1 ) 

106  FORMAT (25HGFAILE0  TO  CONVERGE  AFTER, 14, 6H  LOOPS) 
END 
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SUBROUTINE  SYG  ( ICON) 

CIMENSION  hCRC ( 132) 

OATA  ONEGO  L/6HJ  / 

GO  TO  (1,2), ICON 

1  ENG  FILE  8 
RE  NINO  8 
RETURN 

C  TERMINATE  THE  FILE 

2  WRITE (8, 500) 

50U  FORMAT (12H S$$SSSSS$$f S) 

END  FILE  8 
REWINC  8 

C  READ  RECORD 

5  RE  AO ( 8 , 5  01 1 t  WORD (I) ,1=1,132) 

501  FORMA! (132A1) 

C  CHECK  FOR  12  LEADING  DOLLAR  SIGNS 

00  10  1=1,12 

IF (WCRO(I) -ONEDOL)11,10,11 

10  CONTINUE 
RETURN 

:  CHECK  FCR  6  TRAILING  DOLLAR  SIGNS 

11  DO  15  1=1,132 

IF  (WOROU)  -0NED0D15, 12 , 15 

1 2  K= 1+5 

DO  13  J=  I ,  K 

IF ( H 0 R 0 <  J ) -0NE0CL)15,13,15 

.3  CONTINUE 

GO  TO  20 
j.  5  CO  NT  I NUE 

WRITE  (6,502) 

»02  FORMA r<lHQ,12H£RROR  IN  SYG) 

RETURN 

PRINT  LINE 

0  1=1-1 

WRIT  E  (r;,  50  5)  (WORD (Ml  ,H=1,I) 

505  FORHA'.  (13261) 

GO  '  C  6 
END 


.mi 


SUBROUTINE  THCQMP {PR, ETA , T , H, S ,P , TO, HO , SO,PO) 
PO=P*FR 

TP=T*PR**Q .28572 
00  1  1=1-2  5 

CALL  THERMC<FQ,HP,TP,SP»Xi,0,X2>0> 

0ELS  =  SP-3 

IF  (AOS  (DELS)  .IE.  0.00005*5)  GO  TO  2 
TP=TP/EXP<*.*0E«,S) 

CALL  ERROR 
HO=HM(HF-H)/ETA> 

CALL  THERHCCFO,HC,TO,SO,Xl,0,X2,i> 

RETURN 

END 


jS^-w 


SU3R0LTINE  THTURB(DH,£TA,FAR,H  »S  ,  P  t  TC ,  HCy  SO ♦  PC) 
HO  =  H  -  CH 
HOP=w-DH/£TA 
P7  =p  /  2 . 

CO  i  1  =  1,25 

CALL  THERM C( FT, HOP, TT,ST »AHHT»i,FAR,15 
CtLS  =  ST-S 

IF  <A9S(0ELS) •LE.O,QQ005*S)  GO  TO  Z 

1  FT  =  P*tXP  (0ELS»AHHT/1.986375fAL0G(FT/r) ) 

CALL  ERROR 

2  PO=PT 

CALL  THERMC(FO,hC,TO,SO,Xl,i,FAR,l) 

RETURN 

END 
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-\ii*  VM^>r‘vV 


.o9P?’;Tl  :  FRCCCMCFARX,  ITX.CSE). .  •.X£X,CPFXtREX,PHI,HE 
IF  lF-  .X.Lt.C.!--  ■  "3  )  GO  TO  1 

FARX-U  067623 
HR  IT  F  (6,101) 

IF  (TcX.GE.30G.)  GO  TO  2 
T-X  =  3u';. 

1‘TE  (6,  .-•jS) 

>*  (T  EX.LE.  41  CO.  )  GO  TO  3 
Tu.':  =  4C00. 

HR  IT  £  (8 , 10  3) 

IF  (FARX.GE.C.O)  GO  TO  4 
FARX  =  G.G 
WRITE  (8, 104) 

AIR  PATH 


HEX) 


CrM  =  i  l  *  U  11  •  Ull!?r>4  0t.-i£  5-  I  cX-l.^Scb/VUt-Cll  *  I  tx 
If?  .62157  ?E-18)*rlX-loLi2?259E-14)*TEX-6.7178376E-i2) 
2nEX  +  6.b:».t9486E-ua>  *T£X-5.  '  536879E-D5)  *TEX  +  2.  502Q05lt-0i 
HEA=(C(((( (1. 264442 5E-26*TEX-2.' 752522E-22) *TEX 
in. 2  702633 £-18)  •T* X-3 , 02 56618E-15 )  *  TEX-1.6794594E-12 )  *TEX 
2 +2. 1829826 E-C 8)  *  TEX  *2.5  ?► 344QE-05)*TEX*2.  50  20  «.51£-01>  *TEX 
3  *1.7  5583  Tt- If  GO 

St'-=<-2. .  <  c  CCS1E-01*AIOG(1EX)  ♦  (  ( (  C  U 1. 445D767E-26*TEX 

1- 2.42112  88E-22)*)EX*-1.5  243153£-18)*TEX-3.7  82j648E“15)*TEX 

2- 2.2392790E-12)*TEX+3.2759743E-Oe)*TEX-5.l576679E-05J*TEX 
3«-4.5432300E-02 

IF  (FAFX.U.C.0)  C-0  TO  5 
FUEL/AIR  PATH 

CPF  -U(((  (7.2678710E-2‘JMEX-i.3335668E-2G)*TF.X 
in,  J2129l3E-16)*TEX-4.2G5li.HL-13)*TEX*3.9686793£«»lu)*TEX 
2-1 .37  71901 E- 96)  *TEXU.22  5863uE-03>  *TEX*7. 3816638E-IS2 
HE  F  =((((( < (9. 084833 3E-26*TEX-i. 9050 949E-21)*TEX 

i  a.4  t  u  jCG-i  o  ■  J  o  u  r  » i  I.  imtcviO  f.noi  nturrv 


HE  F  =((((( < <9. 084838 3E-26*TEX-i. 9050 949E-21)*TEX 

1  n. 7 u 21525c- 17)  *T£X-8.41022C3E-14)*TEXf2.492l698E-10)*TEX 
2-4.59C633ul;-C7)  *  TEX +  6.1 c 9315 jc -G 4 > *  TEX* 7. 36 16638t-Q2 > 
3#TEX*3.U50153  0t  +  Ul 

ScF  =  «-7,  3  8l66  3  8F-v,2v  <_OG(TEX)+(  (({  ( ( 1 . u 3 82670E-25*TEX 
1-2.222611  c-21)*TEX*2>o425326E-17)*TEX-1.0512776£-13)*TEX 

2  >3. 3228923  c- 10)  *T  IX -6.  8  8  595  U  =  £>0  7  )  *TEX*1.225363QE-03 )  ♦TEX 
3+6.483393E-t  1 

CPEX=  (CPA+FA..X  •  ’•  •  •  (1. +FARX) 

HE  X  =  (HEA+F  AP>  •  .-k  •  )  /  \1.  +  FAR>. ) 

PH  I  =  ( Sc  A  +F  '>  •  /  v  o  r  '•  /  ( 1  tr  '  •  w 
AMH=28.97-.946186*FARX 
P  9863  7“'  ..V*v 

,,_X=CPc  /  1 2  r ;  -Rfc.%) 

CS£X  =  SQRT  (  AKcX^K  X*2 50  31. 37) 

RETURN 

FORMAT  (xlv  ,63HINPUT  FU..L-AIP  ''TIC  ABOVE  LIMITS,  IT  HAS  BEEN  R 
2 TO  0  •  G6 7  be  3 , 6 Hi  $  9  IS  C ) 

'..RMATilHC  5^PRCCOv  l.wFLT  . cMr t  R  AT  URE  BELOW  3u0  . ,  6HS  SSSSS ) 
FOkMAT  <1H0  )  36HPROCOH  iJjP'JT  T  \MP£  R  ATURE  ABOVE  400 0 .  , 6H$$ J$S$) 
FORrtflTClhO  ,38HPPCCOH  1..PUT  ULL-AIR  RATIO  BELCH  ZERO  ,  6H$  %$W ) 
ENO 


TIC  ABOVE  LIMITS,  IT  HAS  BEEN  RESET 


oooooooooo 


♦  *♦ 
*♦* 


SUBROUTINE  SEARCH (P , A, 6, C , 0 , AX »NA ,BX,CX»DX, NO,NAH, NGH,NCOOE) 

01  MANSION  AX«NAK>,BX{NAN,NON) ,CX(hAM,N0H) ,DX(NAK,N0M> ,N0(NAHJ  >G(9> 

NEEDS  SUBROUTINE  AFOUIR 

AX  ANO  BX  F.UST  BE  STORED  LO  TO  HI 

P=  INPUT  PRCPORTION  BETWEEN  0.0  ANC  1.6 

IF  NOT  INPUT  *  P  *UST  EQUAL  -i. 


***  NC  OQE  =  00 

OX 

NCOOF.=Oi 

A  LO 

NC  ODE  =02 

A  HI 

NCOO£=07 

ERROR 

NC  OD  £=10 

B  LO 

re  00 E =20 

B  HI 

NC  O0E=0 

C=Q. 

0=0. 

C  *** 


FIND 
CO  1 
IH=I 


A 

1=1, NA 


IF  (A.LT.A::  (I))  GO  TO  2 

1  CONTINUE 

IF  (A. GT.  AX  aH)>  NCOQE=2 
A=AX  (IH) 

GO  TO  3 

2  IF  C IH  .  GT  .1 )  GO  TO  3 
NCO'JE=i 


IH  =  2 
A=  AX  ( 11 

3  IL  =  IH-1 
LIHH  =  NO(IH) 

LI  ML  =  NO  l  IL  ) 

C  ***  FIND  0 

PR M=  (A-AX(IU)/  {AX(IH)-AXCIL>) 

PP 

IF  IP.GE.Q.  )  GO  TO  6 

8t  =  9x{IL,i)*FRHMBX(IH,i)-BX{IL,i>> 

BH  =  :J  X  ( XL  »L  IML1  ♦FRH*  (BX(IH,LIMH)~8X<  IL,LIML)  ) 
IF  <  9.SE.BL)  GO  TO  4 
NCOOE=NCOOE*1Q 
BL 

Go  T  O  5 

4  IF  l  '.LE.BHX  GO  TO  5 
NLO  ,E  -NCOOE  +  2  0 

e-  n  ’ 

5  PP  -  .1 . 6 
G  (  <" )  =  0 , 

0(  3»  -;■> 

6  6H=PP^  text  lH,LIKH)-8XaH,l)  >*0X<IF,1> 
BL-PP'MOXC  IL,LIHU-BX<IL,1>  H-GX(IL,i> 

DO  r  J-2,LIHH 

JH-J 

IF (3h.LT ,QX(IH,J))  GO  TO  B 

7  CONTINUE 

8  JL=JH-i 

GO  9  <-2 ,L IHL 

KH  -  K 
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%&&&?}?&$*  i r  >  ,<'"v 


9 

10 


IF  CBL.L7.BX<IL#K>> 
CONTINUE 
KL  =KH-i 


GO  TO  10 


PR=(BXCH,  JL)-eH>/<BXUH,JH>«*BXUH,JO> 

CNs  i;rf4Ht  JD-PR  *iCX<IH,JH>-CXUH,  JL>  V 
0H=  UXUH5JL>-PR  *<OX(IH,JH»-DX(Ih,  JU  * 


PR=  ( dX ( IL »  Ui.  I 
CL-  CXPL,KU 
DL*  OXf  xJ.,  K!  } 


•OU/(BX(IL»KH)-BXCIL,KL)  ) 
>?."  **CX(ILiKH)-CXUL,KU  > 
Pk  ♦iOX(IL»'.HI*OXIIL»KL)  ) 


BTsBL^PRH*  iC.'"3Ll 
CT=CU?W  (CH-CL) 
DT=0L*r  °H*  COH-OL) 


IF  (Pi 


>  GO  TO  13 


12 

13 


^P“0. 

PP*i. 


0IR=30RT  <3>’BT) 

CAU  AFOUIR(Q(l)  ,P?  »ERR»  0.  »25.  ,0.001»DIR»PT  ,ICQN> 

go  ; o  2)  ,icon 

pps.pT 

?P(PP,1-T.d  . 

IKtPP.fiTci, 

GO  TO  6 
NC  COE  “7 
E=  BT 
C=CT 
O-DT 
RE  1-JRN 
END 
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o  o  o 


SUBROUTINE  CCNVRG(TI,HI,PI,SI,FAR,WG,PA,IOES,AO,PR, 
lTO,BO,PO,SC,TSO,PSO,tfO,AHO,ICON) 

IC  ON  =  1  SUBSCNIC  t  COMPARE  PI  WITH  PR 

ICON  =  2  SONIC,  COMPARE  PI  KITH  PR 

I?0N  =  A  ERROR 

A j  =7  7  3. 26 
CAPSF=2116.217 
G~  32. 17A049 

Call  FR0C0H<FAR,TI,XX1,XX2,XX3,XXA*PHII,XX6> 


c  ♦**  SONIC  calculations 


J-  J 

TS  S- 0.833*  TI 
J=  J+i 

CALL  FROCON<FAR,TSS,CSS,AKS,CP,REXS,PHlSS,HSS» 
K,CAl=HI-CSS**2/C2«*G*AJ) 

OELHS=HSCAL-HSS 

IF  <A3S<OELHS)-0.0005*HSCAL>4,4,2 

TSS~T$S«-0ELHS7CP 
IF  (  15 >  i,  1,3 

IC  ON-  A 
RETURN 

IF  HOES)  12,12,5 


C  ***  ISEMROPIC  EXPANSION  CALCULATIONS 


T.i  I"- T  I*  (PA/PI)*»0.286 

J=  J*  1 

CALL  THERMO(PA, HSI, TSI,SSI,XX1,1,FAR,Q) 
IF  (ABS(SSI-SI)-0.0001*SI>8,8,7 
TSI=TSI/EXF(A.*CSSI-SI) ) 

IF  <  J-301  6,  6,3 

V’ E -  SORT <2.*G*AJMHI-HSI>> 

If  .  1S-0SS)9,11,11 


C  ***  Sufr.CMC  OESIGN,  CALCULATE  AO 


VO  i  V  ] 
lu- 
PM  •  ! 
C«  l  * 
RH(  M 
AO  -  Ml 
AM  V,-  \ 
PP  -  P 
I(  ON 
T  0  -  i 
H  1  -  h 
PCUP 
S->  =  ‘. 
fo  U 


S  1 
A 

PROCOM(FAR,TSO,CSO,XX2,XX3,REX,PHISO, 

APSF*FSC7(AJ*REX»TS0) 


HSOI 


/iRHO’VC) 
L/C  SO 


C  ***  So N 1 1.  UFSIGN,  CALCULATE  AO 


'.:*■;*  ■,*sf»?es5.'>wi>^^^S^3S^^^l^eWB83SS^®S?R5^!RT  *sW55liP?S5piBS 


11  vo=css 

TSO=  TSS 

PS  0*PI*  ( TSO/TI)  ’* <AKS/ (AKS-i.) ) 
RHO*CAPSF*FSC/«Aj'*REXS*TSQ> 

AO*HG/(RHO*VGJ 
AH  0*1.0 
PR=PI 
ICON  =  2 
GO  TO  10 

C  ♦*♦  NON-DESIGN,  CALCULATE  CRITICAL  CONDITIONS 


12  VO=CSS  ‘ 

IS 0= TSS  S 

PS  0=  PA  .,  1 

RH0=CAPSF*PS0/< AJ*REXS*TS0> 

A0CRIT=HG/ <RHC*V01  J 

AM 0*1.0  | 

PR=PS0*<TI/TS0)**(AKS/IAKS-1.) )  j 

IFIA0-A0CRIT)13,13,1h  j 

C  *♦*  NON-OESIGN,  CRITICAL  ANO  SUPERCRITICAL  CONDITIONS  j 

13  FS0=PS0*AQCRIT/A0  | 

PR=PR*AOCRIT/AO  j 

ICON*  2  j 

GO  TO  10 


C  *»*  NON-OESIGN,  SUBSONIC  CALCULATIONS 

14  PS0=PA  | 

J=0  f 

TSO  =  0.833*TSG  ] 

4  5  I 

CALL  PR0C0N(FAR,7S0fCS0,AK0,CP,REX,r’HIS0,HS0)  t 

RH0=CAPSF*FS€/<AJ*REX*T$0)  f 

V0=HG/(RH0»A0)  'i 

HSCAL=KI-VC**2/  <2.*G*AJ>  j 

oelhs=hscal-hso  1 

IF (AOS(OELHS)-O.OOO  5*HSC ALI 17,17.1b  \ 

16  TSO=TSO*OELHS/CP  i 

IF  ( J-15)  15,15,3  . 

1?  AM  0*  VO/CSO  | 

FR=PSO*(TI/TSO>**(AKO/tAKO-l.> ) 

IC  0N*1 


o  o  o  o 


S^3R0LTINE  CCNOIV(TI,  Hl,PI,SI,FAR,WG,PA,IOES, AT,AO,ciR, 

1  TT  ,iT  ,PT  ,ST,TC,HO,PO,SO,  TST , TS 0 , PST , PSQ , YT , VO , AHT , AM  0 , ICON) 

IC  '\  =  1  SUeSCMCf  COMPARE  PIR  WITH  PI 

ICON *2  SONIC,  SHOCK  INSIDE  NOZ7LE,  COMPARE  PIR  KITH  PI 
IC  ON  =  3  SONIC,  SHOCK  OUTSIDE  NOZZLE,  COMPARE  PIR  WITH  PI 
ICON  =  *•  ERROR 
DIMENSION  C(S) 

:<  £>  =  c. 

Ci 3) =0. 

AJ  =  775*26 
CA PSF=?116 .2170 
C~  3  2. 17404  5 

CALL  FR0C0N(FAR,TI,XX1,XX2,XX3,XX4,PHII,XX6> 

C  ***  SONIC  calcllaticns 

0=  3 

TS  3=  0 . 83 3*  TI 

1  J=j>1 

CALL  FROCO«(FAR,TSS,CSS, AK,CP,REXS,PHISS,HSS) 
HSCAL=HI-CSS**2/*2.*G*AJ> 

CELHS=HSCAL-HSS 

F ( A3S(OELHS)-0.C005*HSCAL)4,4,2 

2  TS  S=  T  SS*  DEL NS /CP 
IF  (J-15)  1,  1,3 

3  ICON  =  4 
RETURN 

4  IF (IOESI il  ,11,5 

C  SONIC  DESIGN,  CALCULATE  AT 

5  VT=CSS 
TST  =  TSS 

PST  =  PI*  CTST/TI)  CAK/C  AK-1. )  ) 

RhC=CAPSF*FST/(AJ*REXS*TST> 

AT  =HG/ (RHO*VT) 

AMT=1.0 

c  DEAL  EXPANSION  DESIGN,  CALCULATE  AO 

FcO=f- A 
J-0 

TS0=TIMPSC/FI)**.286 

t>  J*  J  *■  1 

CALL  PROCOMFAR,TSO,CSO,AK,CP,REX,PHISO,HSO) 

pti  i:al=phii-rex*alogcpi/pso) 

oelphi=phical-phiso 

IF  <A83(DELPHI>«U.fl0  01*PHICAL>8,8,7 

7  TSC--TSO*EXP(4.»0ELPHI) 

IF  (J-15) 6,6,3 

8  VO=S3RT(2.»G*AJ*(HI-HSO)  ) 

ANO=VG/CSO 

A0=<  AT/AM0)M2.*<i.  *<AK-l.>*AH0**2/2.)/(AK  +  i.>)*M  <AK*1*>  /<2.* 
1  (AK-i  .) )  ) 

FI R=p  I 
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& 


r 


i 


i 


& 


10 


ICON  =  3 
TO=T  I 
HO*MI 
PO=PI 
SO=SI 
TT  =T  1 
HT  -H  I 
PT=PI 

sr=si 

RETURN 


C  »*♦  ASSUME  SONIC  THROAT  AND  ISENTROPIC  EXPANSION  TO  AO 


11 


12 

13 


AMVal.il 

'.-1SS 

t;  0=  WG/ ( AT*VT) 

PS  V  =  RHO* AJ*REXS*TST /capsf 
PIR=PST*(TI/TST)**<AK'(AX-t.)5 
IFIPST-PA)  12,24,24 
TSO=0.95*TI 
WAM=Q 

CALL  FROCOMFAR,TSO,CSO,AK,CP,REX,PHISQ,HSO> 

AM  0=SQRT (2  •*  < (T I/TSQ) -1 • )/ t AK-1. ) ) 

AOCAL-(AT/AMOIM2.*  <l.MAK«l.)*AHC**2/2.)/(AK*l.>  >**((AK+1.)/ 
1  (2  (AK-l.M) 

EA= ( AO-AOC AL ) /AC 
0IR=SQRT  (AO/AOCAL) 

CALL  afquir(Q<ii,tso,ea,o.,ioo.,o*oooi,oir,tsot,jcon) 

GO  TO  (14,15,3)  , JCON 
TSO=TSOT 

IF(TSC*-TI)  140,13,141 
TSC  =  2  «*T  1/ ( A  K*1  • ) 

IF  (TSO.GT. TSC)  GO  TO  142 
TS0=Q,98*TI 
GO  TO  13 

IF  (Q(2)*LT.30.C. OR.AHO.LT. 0.95. OR. HAN. EQ.l)  GO  TO  13 
TS  0=2  .*T 1/ (2.*0 .98* (AK-1.) ) 

MAM=1 
GO  TO  13 

FS O-PIR*  (TSO/TI1  **  <  AICM AK-1.  • } ) 

IF (PSO-PA) 17,16,24 

C  >**  CRITICAL  FLOW,  ISENTROPIC  EXPANSION  TO  PA 


14 


140 


141 


142 


15 


16 


VO  =AHO*CSO 
ICON  =  l 
GO  TO  9 


C  ♦*’  SUBSONIC  FLOW 


17 


FS  0  =  P A 
Q(2I =0. 

0( 3) =0. 

J=  0 

TSO=Q.833*TI 
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tiBli 


18 


J- Jfl 

CALL  PROCOMFAR,TSO,CSO,  AK ,CP , REX ,PHISG ,HSO> 
RHO=CAPSF*FSC/(AJ*REX*TSO) 

VO  =  WG/(RHO»AO) 

HSCAL=HI-VC**2/ (2»*G*AJ8 
Ct  LHS  =HSCA  L-HSO 

IF  (ABS(OEUHS)-0.0005*Hi‘CAU20t£tt»19 

19  TSO=TSO*OELH$/CF 
IF  C  J-15)18,18,3 

20  AM  0=  VO/C  SO 

FI R=  P SO*  (TI/TS0)**<AK/<AK-1.) > 

TST=TSO 

21  CALL  PROCOK(FAR,TST,CST, AK,CP, REX ,PHIST ,HST| 

PST-PIR* (TST/TI)**( AK/( AK-1* I ) 

RHO-PST*CAFSF/<AJ*REX*TST) 

VT=HG/(RHO*AT) 

HSCAL=HI-VT**2/(2.*G*AJ) 

kH=(HSCAL-HST)/HSCAL 

GIR=l.+tHSCAl-HST»/(CP*TST> 

CALL  AFQUI R (Q (1)  ,TST ,EH , 0. ,20. , 0 . 00 05 , DIR,TSTT , JCON) 

GO  TO  (22, 23,3) ,  JCON 

22  TST=  T  STT 
GO  TO  21 

23  AMT=VT/CST 
IC  ON=  1 

GU  TO  9 

C  *♦*  SUPERCRITICAL  FLOW,  ISENTROPIC  EXPANSION  TO  PA 

24  PS  0  =  P  A 
J=0 

TS  G~  T I* ( PS  C/FIR) ♦*, 286 

25  J--.M 

CALL  FROCO«(FAR,TSO,CSO,AK,CP,REX,PHISO,HSO) 
FHICAL=PHII-REX»AL0G(PIR/PS0) 

oelphi^phical-phiso 

IF  (ABS(OELPHII-0.0001*PHICAL)27,27,26 

26  TSO=TSO*EXF(4.0*0ELPHI> 

IF  U~1S>  25,25,3 

27  U0-SQRT(2.»G*AJ*(HI-HS0) ) 

AM  0=  V  C/C  SO 

An  i  }=  (AT /A MO )*(  2. *<1.MA«-1.>*  AMO** 2/2. )/ <AK  + 1.  ))*♦  C  (AK*1.)/ 
1  12  .*  (  AK-1.  ))  ) 

IC  CN  =  3 
N=  b 

IF  >'  Au-AO  10  )2  8 ,9 ,29 

c  ***  SUPERCRITICAL  flow,  isentropic  expansion  TO  AO 

28  N=1 

29  TSO  =  Q.833*TI 
J=0 
J=  J  +  i 

CALu  PROCOM(FAR,TSO,CSO,AK,CP,REX,PHISO,HSO) 

AM  O-SQRT  (2«*  ((TI/TSOI-l,)  /  (AK-i»>  ) 


30 


SS^fJSpnKi^t 


jut^JJOUBB^^WgBJW^TUaaKKiSSSS?' 


wt 


31 

32 


AOCAL=<AT/ AMC>*  <2.*  < 1. ♦ ( AK-1. I *AMC**2/2 . ) / i AK*1. 1 ) *♦ < ( AK  +  l . ) / 
1  (2.MAK-1.  »l) 

CELA^AO-AOCAL 

IF (A8S (DEL  A) -0,0001 *A0)  32,32,31 
TSO=TSO*SQRT (AOCAL/AO) 

IF(J-50>30,30,ii 
IF (N) 34,  34  ,33 


C  ♦*♦  UNOEREXP  ANCEG,  SHOCK  OUTSIOE  NOZZLE 

33  FS  3-PIR* (TSO/TI )  **  ( AK/ < AK»i» ) ) 

VO-AHC*CSO 
GO  TO  9 

C  OVEREXPANDED,  FINO  SHOCK  POSITION 

34  PS X=PIR*  CTSO/TII **( AK/ (AK-1* ) ) 

PSY=PSX*  (2**AK*AH0**2/f AK*i.>- (AK-i.l/  UKU.U 
IF (PA-PSV) 35,36,36 

C  ***  OVEREXPANOEO ,  SHOCK  OUTSIOE  NOZZLE 

35  PSO-PSX 
VO=AMC*CSO 
GO  TO  9 

C  ♦♦♦  OVEREXPANOEO,  SHOCK  INSIOE  NOZZLE 


36  PS  O-PA 
J=0 

TS  0=0.833*71 

37  J=J*1 

CA  LL  PRO  CO  MFARjTSO,  CSO  ,  AK  ,  CP ,  REX  ,PHIS  0 ,  HSOI 
RHO=CAPSF*PSC/{ AJ*REX*TSO) 

VO=WG/(RHO*AC> 

HSCAL=HI-V0**2/ <2.*G*AJ> 

OELHS=HSCAL-HSO 

IF  {ABS<OELHS)-0.000  5*HSCAU39,39,38 

38  TSO=TSO*OELHS/CF 
IF  (J-15)  37,37,3 

39  AMO=VC/CSO 
TO=TI 

HO  ~H  I 

PO=PSO*(TO/TSO>  **(AK/<AK-i.>> 
SO=PHII-REX*ALOGlPO> 

IC  ON  =  2 
GO  TO  10 
ENO 


| 
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SUBROUTINE  ,'FOUIR<X,AINO, OEPENO, ANS,AJ,TOL,QIR, ANEW, ICON) 
01 NENSION  X<9) 

C  X (1) =N  AH£  OF  ARRAY  TO  USE 

C  AINO=I NOtPENOANT  VARIABLE 

C  DEPENO  =  OEPENDANT  VARIABLE 

C  ANS=ANSHER  UPON  WHICH  TO  CONVERGE 

C  AJ=HAX  NUMBER  OF  TRYS 

C  TOL=FERCENT  TOLERANCE  FOR  CONVERGENCE 

C  OIR= DIRECTION  ANO  PERCENTAGE  FOR  FIRST  GUESS 

C  ANEW=C  ALCULATEO  VALUE  OF  NEXT  TRY  AT  INOEPENOANT  VARIABLE 

C  ICON  CONTROL  =1  GO  THRU  LOOP  AGAIN 

C  =2  YOU  HAVE  REACHED  THE  ANSWER 

C  *3  COUNTER  HAS  HIT  LIMITS 

C  X (2) =COUNT£R  STORAGE 

C  X 13) =C HOOSES  HETHOU  OF  CONVERGENCE 

C  X  (4)  =THIRO  OEPENO  VAR 

C  XC5)  =T  H I R 0  INO  VAR 

C  X (6) =S ECONO  DEPEND  VAR 

C  xm=SECONO  INC  VAR 

C  XC8) =F IRST  OEPENO  VAR 

C  XC9)  ~F IRST  INO  VAR 

C  X (3)  MUST  BE  ZERO  UPON  FIRST  ENTRY  TO  ROUTINE 


Y=Q. 

IF  (ANS)  1,2,1 
OEP=DEPEND-ANS 
TOLANS=TQL*ANS 
C-0  TO  3 
CE  P=DEPEND 
TOLANS=TOL 

IF (ABS(OEP)-TOLANS» 5,5,4 
IF  (X(2)-AJ»8,8,7 

ANEH=AINO 
X( 2) =0. 

ICON  =  2 
RETURN 
ANEH=Y 

X(2i  =X(2>*1. 

ICON-1 
fir  TURN 
AN  E  W  =  Y 
X{  2) =0. 


RETURN 

IF  (X  (3H  9,  9,12 
FIRST  GUESS  USING  DIR 
x( 3) =1. 

X(  85  =0EP 
X( 9) =aiN0 

IF  <>\  IND)  10  ,11,10 
T=3IR*AIN0 

GO  TO  & 

Yr-OIR 

GG  TO  6 

IF  (X  ( 3) **!•  >13,13,16 
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C  ***  LINEAR  GUESS 

13  X<3>=2. 
x(6)=orp 

X( 7) =  AINO 

IF(X  (8)-X<6)  >14,9,14 

14  IF <X<9»-X<7> >15,9,15 

15  A=  TXC9. -X<  7>)/<X(8>~X(6>  > 

Y=X(9)-A*X (8) 

IF  (A3SC10.  'fX  C9>  >  - ABS<Y>)9,9,6 
C  ***  QUAORATIC  GUESS 

16  X( 4>  =  D£P 
X( 51 = AINO 

IF (X  <  7) »X ( 5) > 18  »17» 18 

17  IF(X(6)-X<4> >13,9,13 

18  IF  (X(6)-X(4) >19, 13, 19 

19  IF (X ( 9) -X ( 5) ) 23 ,20, 23 

20  IF  (X  (  8)  ~X(  4) )  21 , 22,  21 

21  X(  9) “X (7 ) 

X(8>-x(6> 

GO  TO  13 

22  X(  9>  =X  ( 7 ) 

X(  8)  =X  C6> 

X(  3) =1. 

IF  (X  (9) )  10 ,11,10 

23  IF  (X  (8I-XI4J  >24,21,24 

24  F=<XC6)-X<4)>/<X<7I-X<5>> 
A=(X<8)-X{4)-F*<X<9>-X<5m/<<X<9>-X<7l>*<X<9>-X<f>)  > 
B=F-A*<X(5)*X<7)) 

C=  X  <  4 )  +X  (5  )  *  <  A*  X  <7) 

IF<A>  242,24G,L.42 

240  IF  <B>241,7,241 

241  Y=-C/B 
GO  TO  37 

242  IF  <B) 247 ,243,247 

243  IF  (0  245,244,245 

244  Y=0. 

GO  TO  37 

245  G“-C/A 

IF  (G>  7,7,246 

246  Y=  SQRT (Gl 
YY=-SQRT  (G) 

GO  TO  270 

247  IF <C) 249,248,249 

248  Y=-B/A 
YY  ~0  • 

GO  TO  270 

249  0=4,*A*C/B**2 

IF  (l.-O) 13,25,26 

25  Y= -3/  (2  ^ ’A  ) 

GO  TO  37 

26  £=SQRT(i»-C) 

27  Y= <-B/(2.*A> >Mi,»E> 

YY  =  (-B/(2*#A))M1»»E) 

27,0  J=4 

Q£PHIW=A3S  (X  (4)  I 


fJOrpH p:ifeWi-fe  i  »... 


00  29  1  =  6,  8,  2 

IF  (Q£PMXN-ABSfX(I)tt29,29,28 

8  J=I 

C£PNIN=ABS  (X  (I)  ) 

9  CONTINUE 
K=J*1 

IF ((XCK» -Yl* <X(K)-YYJ> 32,32,30 
0  IF IA8SCX (K l-Y)-ABS(XCK) -YYH37, 37,31 

1  V=  YY 
GO  TO  37 

2  IF  (J-6) 33, 34,34 

3  JJ=J  +  2 
KK=K*2 
GO  TO  35 

*  JJ=J-2 

KK=K-2 

35  SL  OPE=  (X  CKK>  -  XIK))/(X(JJ)-X(J)  > 

IF  (SLCPE*X(J)*CX(K)-Y))  36,36,37 

36  Y=YY 

37  X(9)=X(7I 
X( 8) =X<6> 

X(  7)  =X  (5 ) 

X(  6)  =X  (41 
GO  TO  6 
END 
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SUBROUTINE  MATRIXCE* V, A) 

DIMENSION  E(  9 ,9) , V( 9) , A  ( 9)  ,PIV  CIO )  ,T  (9,10) 
00  1  1=1,9 
T(  1, 10)  =A(  I) 

00  1  J=l,9 

1  Tf I, J)=E (I r J) 

00  7  1*1,9 
TEMP*0, 

DO  2  J*I  ,9 

IF {TEMP. GT .ABS(T(J,I)>)  GO  TO  2 
TEHP=A8S(T  (J,I)  ) 

IPIV=J 

2  CONTINUE 
IP  1=1  *1 

DO  3  J=IP1,10 

3  PIV(JI=T<IPIV,J)/T<IPIV,I> 

IFR0N*9 

IT  0=9 

4  IFUFROM.EC.IPIV)  GO  TO  6 
RM=-T  CIFRON,  I) 

DO  5  J=IP1,1Q 

5  T( ITO,  J) =T  (I FROM, J)  +P.M*PI7 (J) 

IT  0*IT0-1 

6  IFROH=IFROK-i 
JFUFROH.GE.I)  GO  TO  4 
DO  7  J=IP1,10 

V  T< I, J)=PIV (J) 

00  8  1=1,8 

J=10-I 

K=9-I 

00  8  L=J ,9 

8  T(K,10)=TCK,10)-TIK,LI*TCL,10> 

00  9  1=1,9 

9  VCI)=T(I,lfl) 

RETURN 

ENO 


♦ 

t 

f 

I 

i 

! 

i 

♦ 

i 
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SUBROUTINE  OUTPUT 

DIMENSION  M5,4)  , ANSI (96) , ANS2  (121) y  ANS3C56)  »  ANS4  (72) 
COMMON  /  ALL/ 

1NORD  ,I0ES  f JOES  ,KD£S  yMODE  ,INIT  ,ICUMP  ,IAHTP  f 
2IGASHX,I0BURN,IAFTBN,I0C0  ,IMCO  , IOSHOC, iHSHOC yNOZFLT , 
3  H  RYS yLOOPER  yNOHAP, NUMNAP, MAPEOGy  TOLALLyERR (9) 
COHMON/OESIGN/ 


1PCNFGU 

y  PCMGU 

yPCMCGU 

,T4GU 

yQUHOl 

yOELFG 

yDELFN 

y  DELS  FC 

2ZF0S 

t  PCNFOS 

,PRFOS 

yETAFDS 

y  MAFOS 

yPRFCF 

yETAFCF 

y  HAFCF 

3  ZIPS 

yPCNIOS 

,PRIDS 

yETAIOS 

yHAIOS 

yPRICF 

y  ETAICF 

y  HAICF 

4ZC0S 

> PCNCOS 

, PRC OS 

yETACOS 

yHACDS 

yPRCCF 

yETACCF 

yHACCF 

5  Tv  OS 

t WF  BOS 

yOTCOOS 

yETABOS 

y  HA3C0S 

yOPCOOS 

yOTCOCF 

,ETABCF 

6TFHP0S 

yCNHPOS 

yETHPOS 

yTFHPCF 

yCNHPCF 

yETHPCF 

yOHHPCF 

,  T20S 

7TFIP0S 

f  CN IPOS 

,F.Tiros 

yTFIPCF 

yCNIPCF 

yETIPCF 

yOHlPCF 

,  T210S 

8TFLP0S 

yCNLPOS 

fETLPOS 

yTFLPCF 

yCNLPCF 

yETLPCF 

yOHLPCF 

y T220S 

9T24DS 

t  HFOCS 

yOTOUOS 

y  ETAOOS 

y  MA230S 

yOPDUOS 

yOTGUCF 

yETAOCF 

AT7  0S 

t MF AOS 

yOTAFOS 

,ETAAOS 

, WG6CDS 

yOPAFOS 

yOTAFCF 

yETAACF 

B  A55 

,  A25 

y  A6 

y  A7 

» A8 

y  A9 

y  A26 

,  A29 

CPS  55 

,  AM  55 

yCVONOZ 

,CVMN02 

,A6SAV 

t A9SAV 

y A28SAV 

yA^jSAV 

COMMON/ 

FRONT/ 

i  Tl 

?P1 

y  HI 

*Si 

»T2 

yP2 

yH2 

nS2 

2T21 

,P21 

y  H21 

y  S21 

yT22 

yP22 

yH22 

,S22 

3T3 

,P3 

y  M3 

y  S3 

y  T4 

yP4 

yH4 

yS4 

4T4  5 

» P4  5 

,Hf)5 

yS45 

»T5 

yP5 

y  H5 

y  S5 

5T55 

,P55 

yH55 

y  S55 

yBLF 

yBLl 

y  BLC 

yBLOU 

6  CNF 

»  PRF 

,ETAF 

yMAFC 

yMAF 

yBLOUI 

y  3L0UC 

9  blob 

7CNI 

»  PR2 

yETAI 

y  MAIC 

yMAI 

yBLOBI 

yBLOBC 

y  NA3 

acNC 

»  PRC 

,ETAC 

yWACC 

y  MAC 

yETAB 

,0?C0M 

y  NG4 

9CNHP 

, ET  ATHP 

yOHTCHP 

yOHTC 

yBLHP 

yBLHPI 

yBLHPC 

yFAR1* 

A  CHIP 

»ET  ATIP 

yOHTCIP 

y  GHTI 

y  BLIP 

yBLIPI 

,8LIFC 

yDUMF 

8CNLP 

t ET  ATLP 

yOHTCLP 

,0HTr 

yBLLP 

y BLLPI 

,BLLPC 

,CS 

CWG45 

t FA  R45 

yNG5 

y  FARE 

y  HG55 

»FAR55 

,HPEXT 

,  AM 

OALTP 

» ET  AR 

yZF 

yPCNF 

yZI 

yPCNI 

yZC 

,PCf!C 

E  VF9 

,TFFHP 

yTFFIP 

y  TFFLP 

,PCBLF 

yPCBLl 

yPCBLC 

,PC8LDUI 

FFC8LDUC 

»PC GLC8I yPCBLOBC 

y  PCBLHPI 

yPCBLHPC 

yPCBLIFI 

yPCBLIPC 

,PCBLLPI 

GPC9LLPC 

COMMON/ 

SIDE/ 

lXPi 

t  XHAF 

yXMAI 

yXHAC 

yXELF 

yXBLOU 

yXBLOUI 

yXBLOUC 

2XH22 

*  XH3 

y  XT2  1 

,  XP21 

y  XH2  1 

y  XS2  1 

yOUMSl 

,  OUMS2 

3T2  3 

»P23 

t  H23 

y  S23 

fTZU 

yP24 

yH24 

yS24 

4T2  5 

t  p2  ' 

3  K25 

yS25 

,7  P.9 

f  P28 

yH28 

yS28 

5T2  9 

,P29 

y  H29 

yS29 

y  0LMS3 

yOUMS4 

,0UMS5 

y  OUHS  6 

6  KAO 

.  HFC 

t  HG24 

y  FAR24 

yETAO 

yDPOUC 

y  BYPASS 

y  OUMS7 

7TS23 

•  PS  28 

»V  28 

y  AM2  8 

yTS29 

yPS29 

y  V29 

y  AM29 

COMMON 

/  BACK/ 

X  XT  55  , 

XP5  5  , 

XH55  , XS55  y  XT25  yXP25 

y  XH25 

yXS25 

y 

XXWF0  , 

XKG55  , 

XFAR55,XHF0  ,XHG24  ,XFAR24,XXP1 

yOUMS 

y 

3T6  , 

P6  , 

H6  yS6 

yT7 

yP7 

y  H7 

yS7 

y 

4T8  , 

P8  , 

H8  yS6 

y  T9 

yP9 

yH9 

yS9 

y 

5  KG  6  , 

HFA  , 

WG7  ,FAR7  ,ETAA  , DRAFT  ,V55 

yV25 

y 

6  PS  6  , 

V  6  , 

AM6  ,TS7  ,PS7 

yV7 

,AM7 

y  AM25 

f 

7TS8  , 

PS8  ♦ 

V8  y  AM8  , TS9 

y  PS9 

yV9 

y  AM9 

y 

8  VA  , 

FRO  , 

VJO  yFGMO  yVJM 

,  FGMM 

yFGPO 

,  FGPM 

y 

9FGM  , 

FGP  , 

HFT  ,WGT  yFART  ,FG 

yFN 

,SFC 

EQUIVALENCE  (ANSI  (1)  ,PCNFGU>  ,  (  ANS2  <  1) ,  Ti>  ,  (ANS3(.U  ,XP1) 


Kf9f  -  LV-V'  r  ,''l 


r  .  >wi  mm—-inwrnvk*JJS> 


EQUIVALENCE  (ANS4C1)  ,XT55) 

DATA  AN0R01, AH0R02/6H0UTPUT,6HC0MHON/ 

DATA  (Nti, I) , 1*1,4) /6HSUBS0N,6HIC  C-0,6H  N0ZZL,6HE  / 

OATA  1H(  2, I) , 1=1,4) /6HSHCCK  ,6HINSI0E,6H  C-0  N»6H0ZZLE  / 

DATA  <M(3f  I)  ,1*1,4)  /6HSH0CK  ,6H0UTSID,6HE  C-0  ,6HN0ZZLE/ 

OATA  (H(4» I) ,1=1,4) /6KSUBS0N ,6HIC  C0N,6HVERG.  ,6HN0ZZLE/ 

OATA  (H(  5, I) , 1=1,4) /6HS0NIC  ,6HC0NVER,6HGENT  N,6H0ZZLE  / 

HORO*AHOROi 

IFCIOES.EG.il  GO  TO  4 

IFCIDBURN.  GT.O)  GO  TO  2 

IF  CIAFTBN*  GT .0)  GO  TO  1 

HRITEC6,iflO)HORQ,AH,ALTP,T4,ETAR 

GO  TO  3 

HR  IT  E  (6  » 10 1)  HORO,AH,ALTP  ,T4 ,T7 ,ET  AR 
GO  TO  3 

HRITE  (6,10  2) kORO, AH, ALTP,T4,T24,ETAR 
CALL  CON OUT (2) 

HRITE (6, 10  4) (H( IHSHOC, I) ,1  =  1,4) ,FG,FN,SFC 

IFCIGASHX.  GT.O)  GO  TO  5 

HRITE (6, 1CT) (HCIOSHOC, I) ,1=1,4) 

HRITE  (6,  106)  L COPER 
WORD  =  AHOR02 

HRITE (6, 10  7) HORO,ZF,PCNF ,ZI,PCNI , 2C,PCNC,T4, NODE 
HRITE  (6, 10  6) 

HRITE  (6, 109)  (ANSKI)  ,1  =  1,96) 

HR  IT E  (6,10  8) 

HRITE (6, 10  9)  (ANS2( I) ,1=1,121) 

HRITE  (6,10  6) 

HRITE  (6,109)  (ANS3(I)  ,1=1,56) 

HRITE (6, 10  8) 

HRITE  (6, 109)  (ANS4(I),I=1,72) 

IF (IQES.EQ .1)  GC  TO  6 

A8=A8SAV 

A9=A9SA V 

A2  8=A28SAV 

A2  9=A29S  AV 

IF ( I Q UNP • N E . 2 )  GO  TO  6 
HRITE  (6,‘  110) 

CALL  SYG  (2 ) 

CALL  ENGBAL 
RETURN 

FORHATdHO  ,A6,14X7H  AM=,  F7.3,  6X7H  ALTP*,F7.0, 

16X7H  T4=,F8.2,25X7H  ETAR=,F7.4) 

FORHATdHO  ,A6,14X7H  AH=,  F7.3,  6X7H  ALTP*,F7.0, 

16X7H  T4  =  ,F8.2,5X7H  T7*,F8. 2 ,5X7H  ETAR*,F7.4) 

FORHATdHO  ,A6,14X7H  AH=,  F7.3,  6X7H  ALTP*,F7.Q, 

16X7H  T4=,F3.2,5X7H  T24=,F8. 2 ,5X7H  ETAR=,F7.4) 


GO  TO 


100  FORHATdHO  ,A6,14X7H  AM=,  F7.3,  6X7H  ALTP*,F7.0, 

16X7H  T4=,F6.2,25X7H  ETAR=,F7.4) 

101  FORHATdHO  ,A6,14X7H  AH=,  F7.3,  6X7H  ALTP*,F7.0, 

16X7H  T4=,F8.2,5X7H  T7=,F8. 2 ,5X7H  ETAR*,F7.4) 

102  FORHATdHO  ,A6,14X7H  AH= ,  F7.3,  6X7H  ALTP*,F7.0, 

16X7H  T4=,F3.2,5X7H  T24=,F8. 2 ,5X7H  ETAR=,F7.4) 

104  FORHAT (6H0HAIN  ,4A6,9X3HFG=,F9.2,18X3HFH=,F9.2,18X4HSFC=,F8. 5) 

105  FORHAT (6H  CUCT  ,4A6) 

106  FORHAT (16H1CCNVERGE0  AFTER, 14, 6H  LOOPS, /,1H0) 

107  FORHAT (1H  ,A6,9X,7E15.6, 14) 

108  FORHAT  (1H  ) 

109  FORHATdH  ,8E15.6) 

110  FORHAT  (1H1 ) 

END 


SU3R0UTINE  MAPS  AC  CM AP, HA PGC , TKFS , IFF ,CNS ,CN , PCN, T , MOOE , IGO, NUM) 
OATA  HH, HI  ,ML,HTy HS/6H  H.P.  ,6H  I.P.  ,6H  L.P.  ,6H  TFF  ,6HSPEE0  / 

1  FORMAT ( 1HU  , A£,12HTUR8INE  MAP  ,  A6 , AH WAS= ,E13 • 6 , 10H  ANO  NOH=s,E13.6, 
i6Hi$sm> 

2  FORMATdHO  ,A6,A6,22HWAS  ALSO  CHANGEO  FROM  ,E13.6,5H  TO  ,E13.6, 

16HiSSSSS) 

IF(NUH.GT.O)  GO  TO  3 
NUMH  =  0 
NUMI  =  0 
NL)  ML  =  0 

3  IGO-MAPGO+3*  CHAP-1) 

GO  TG  (100  ,200, 300, 400, 500, F«00  , 70^200, 90O)  , IGO 
C  •**  HIGH  PRESSURE  TURBINE 
100  TF  F=TFF+  Q, i* { TFF-TFFS) 

HR  IT  E (8, II HH,HT ,TFFS,TFF 
RETURN 

200  CN=CN*0.u5*(CN-CNS) 

IF  (MOCE.NE.i)  PCN*PCNMCN/CNS1 
IF (MOOE«  EG  .  1)  T  *T  *iCNS/CN)**2 
MR IT E  (8, 1) WH,MS,CNS,CN 
IF (NUMH«  GT  #21  GO  TO  210 
HU  M= 1 

MU  NH=NUMH* 1 
RETURN 

210  OELCN=CN-CNS 

IFOELCN.GE.O.)  RETURN 
TFF=TFF* (1 • ♦CELCN/CN) 

WRITE  (8, 2)  *H,MT,TFFS,TFF 
RETURN 

300  TFF=TFF^0.1* (TFF-TFFS) 

WRITE  (8, 1)  WH  ,WT  ,TFFS,TFF 
GO  TO  200 

C  ***  LOW  PRESSURE  TURBINE 
*00  TFF=TFF+Q. 1* (TFF-TFFS) 

WRITE  (8,1)  WL  ,HT  ,TFFS,TFF 
RETURN 

5  00  CN=CN*0,05MCN-CNS) 

IF (MOOE. NE. 3)  PCN=PCNMCN/CNS> 

IF  (MOOE. EQ. 3)  T  =T  MCNS/CN) 

HR  HE  (8 , 1)  WL  ,HS  ,CNS  »CN 
IFCNUPL.GT.2)  GO  TO  510 
NUM=1 

NUML=NUHL* 1 
RETURN 

510  OELCN=CN-CNS 

IF (OELCN.GE.O.)  RETURN 
TFF=TFF* (1  .♦CELCN/CN) 

WRITE (8, 2) WL  ,WT  ,TFFS,TFF 
RE  TURN 

500  TFF=TFF*0»i* (TFF-TFFS) 

WRITE  (8,1)  WL  ,WT  ,TFFS,TFF 
GO  TO  50  0 

C  •*+  INTERMEDIATE  SPOOL  TURBINE 
700  TFF=TFFfQ.lMTFF-TFFS5 

WRITE  (8,1) WI,WT,TFFS,TFF 


L03 


RETURN 

800  CN-CN+0*  05MCN-CNS.) 

IF  (MOOE.NE  *3)  PCN»*>CN*  (CN/CNS) 
IF (HOCE*EQ  *3)  T=T*(CNS/CN) 
WRITE  (8,1)  WI,WS,CNS,CN 
IF (NUHI. GT  »2 )  GO  TO  810 
NUH=  1 

NUHI*NUHI»  1 
RETURN 

810  OELCN=CN-CNS 

IF(OELCN.GE.O.I  RETURN 
TFF-TFF*  (1  •♦OELCN/CN) 

WRITE  (8,2)  H,WT,TFfS,TFF 
RETURN 

900  TFF=TFF*0. 1*  (TFF-TFFS) 

WRITE  (8,1)  WI ,  WT  ,TFFS, TFF 
GO  TO  COO 


r^ii  rr  - 


atfia*#s*g£a.& 


SUBROUTINE  THERf*0(PX,HX*YX,SX,AHX,L,FAR,K) 
FX  =  0  « 

IF(L.EQ.l)  fx=far 
IF  (K.EQ.  1)  GC  TC  i 

CALL  PROCOH<FX,TX,CS,AK, CP,R,PHI,HX> 

GO  TC  3 
TX  =4 «  *HX 
DO  2  1=1,15 

CALL  FROCOf<FX,TX,CS,AK,CP,R,FHl,F> 

0ELH  =  HX-H 

IF  (ABS(DELH) .LE.Q.00301*HX)  GO  TO  3 
TX=T  X*L«  *0  ELH 
XRITE  (8,  IQ  C) 

FO RMAT (31HQNC  CONVERGENCE  IN  THERNOtttKS) 
SX  =PHI-R*A  LOG (PX) 

AMX=1.986375/fi 

RETURS 

ENO 


WBHSRWBBWWHfJiWiiPHRPPSfS*  "iw*'  ™  -1 
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SUBROUTINE  RAK(AM,ETAR) 
IF(AM«GT.1»)  GO  TO  2 
ETAR*1. 

1  RETURN 

2  IF  (AH  »GT  »5  •)  GO  TO  3 
£TAR=i.-0.Q75*C  (AM-i.)  ♦»1/3S> 
GO  TO  1 

3  ETARaflOO./ <CAH**4>»935.) 

GO  70  1 

END 


I 
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FUNCTION  GUESS<M,T,T0,P,POfM,W0,C,OO,VD> 
IF(M.EQ.O)  GU£SS=V0*((T/T0)**1.6Q)*((DQ/0)**Q.5Q) 
IF (H.EQ.i)  GUESS=VO*<(P/PO)**i.80)M»00/D>**0.33> 
IF (N.EQ.2)  GUESS=VO*( (W/HD)**0»33)*» (UD/O)  **i»00) 
IF  (H.EQ.3)  GUESSED*  UW/WO)  *♦0.00)*  ((P/PD)  *♦0.50) 
IF  (H.EQ.4I  GUESS=VD*  ( (H/HD)  **Q.QQ)*(  (P/PDI  **0  .50) 
IF (M • £Q. 5)  GU£SS»V0*( <T /TD)**i.iQ)*( (00/0) **C .60) 
IF (M. EQ*  6)  GUESS*VO* ( (P/PDl **1.00)* ( (0/00)**0«25) 
IF (N . EQ.7)  GUESS-VD*( (P/P0)**0. 62)* ( (0/00)  **0.31) 
IF (H. EQ. 8)  GUESS=V0r((T/T0)**1.2) *00/0 
IF (H.EQ. 9)  GU£SS*VD*P/PO*( (0/00)**i.5) 

RETURN 

END 
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BLOCK  DATA  CPBO AT 

COHHON  /  CCH87PSI<15) ,0ELT<15,15> ,ETA<15,15) ,N,NP(15> 

CATA  6 f HP/ 15  » 15*15/ 

OAT  A  PSI/4. 9116, 9. 8232, 14. 735, 19. 646, 24. 558, 29.470,  34.381, 

139. 293, 44.  207,7  3. 674,100.,  2  00.  *300.  ,400 .  ,50  0.  / 

OATA  OELT/ 15*200 .*15*300.  ,15*400.  ,15*500.  >15*600*  , 15*700.  ,  15*80 u 
115*900., 15*1 000. *15*1100., 15*1 200., 15* 1300., 15*1400. ,15*1500., 
215*1600./ 

OATA  ETA/ 

1 .600. . 726. .777. . 806 ..826. .843. .855. .865.7**870, 

2.758. . 825. .858. . 875 .. 888. . 898. .906. .912.. 914. 6*. 915, 

3. 8 68..  893.. 911.. 925.. 935.. 942.. 947.. 951. 7*. 953, 

4. 925..  936.. 946.. 955.. 963.. 969.. 974. .977.. 978. 6*. 979, 

5. 960..  966. .972.. 977.. 982.. 985.. 990.. 992.. 993. 6*. 995, 

6. 988..  991.. 952.. 994.. 995.. 997.. 996. 8*. 999, 

7  8*1.00,7*.  599,120*1.00/ 

ENO 


BLOCK  DATA  F  AND  AT 

C  THIS  IS  A  GENERALIZED  FAN  NAP  FOR  UNREALISTIC  SUPERSONIC  ENGINE 


COMMON/  F  AN/CN  ( 15) , PR C 15, 15) , HAC (15, 15) ,ET A ( 15 

,15) , N, NP ( 15) 

OATA  N,NP/10,6f 
CATA  CN/Q. 3,0.4 

3*7,5*10,8,5*0/ 
,0.5, 0.6, 0.7, 0.8 

,0.9, 1.0 

,1. 1,1.2 

,5*0./ 

DATA  (PR(1,J) 
Cl.  0000  ,1.  0120 

,J-1,6  )/ 

,1.0280  ,1.0384 

,1.0448 

,1.0480 

/ 

OATA  (HACC1,  J) 
C243.60  ,229.80 

,J=1,6  >/ 

,199.80  ,166.80 

,133.20 

,86.400 

/ 

DATA  (ET  A( 1, J) 

C  0.  7559  ,0.7612 

, J=1 ,6  )/ 

,0.7665  ,0.7559 

,0.7251 

,0.6415 

/ 

OATA  (PR (2  ,  J) 
Cl.  0000  ,1.  0200 

, Jsl,7  )/ 

,1.0400  ,1.0584 

,1.0752 

,1.0920 

,1.1000 

✓ 

OATA  (HAC(2, J) 

C 26 6. 80  ,270.00 

, J=l,7  )/ 

,253.20  ,233.40 

,209.40 

,183.60 

,156.60 

/ 

OATA  (ET A  (  2,  J) 
CO.  7559  ,0.7762 

,J*1,7  )/ 

,0.7920  ,0.7973 

,0.3026 

,0.7762 

,0.7401 

/  ' 

OATA  (PR  (3  ,J ) 
Cl.  0000  ,1.  0256 

, J-i ,7  )/ 

,1.0512  ,1.0800 

,  A.  1160 

, If  1320 

,1.1480 

/ 

OATA  (HAC ( 3, J) 

C 33 3. 60  ,322.60 

,J«1,7  )/ 

,310.20  ,291.60 

,259.80 

,240.00 

,213.60 

/ 

OATA  (ET  A  ( 3,  J) 
CO.  7506  ,0.7762 

,  J=1 , 7  )/ 

,0.6026  ,0.8281 

,0.8439 

,0.8281 

,0.7662 

/ 

OATA  (PR  (4  ,  J) 
Cl.  0000  ,1.  0368 

, J-l ,7  )/ 

,1.0880  ,1.1240 

,1.1600 

,1.1896 

,1.1952 

/ 

OATA  (WAC( 4, J) 

C  38  3.  4  0  ,376.20 

, J*1 ,7  )/ 

,358.20  ,340.20 

,313.20 

,276.60 

,266.40 

/ 

OATA  (ET  A  (  4,  Jl 
CO.  7454  ,  0.  7762 

, J=l,7  )/ 

,0.8281  ,0.8545 

,0.8600 

,0.8281 

,0.6078 

/ 

OATA  (PR  (5  ,  J ) 
Cl.  0000  ,1.  0640 

,J=1,10)/ 

,1.1184  ,1.1480 

,1.1840 

,1.2096 

,1.2176 

, 

C 1.  22 40  ,1.  2440 
OATA  (HAC( 5, J) 
C439.80  ,436.80 

,1.2672  / 

, J=1 , 10 )  / 

,428.40  ,420.60 

,406.80 

,393.60 

,388.20 

r 

C  38  3. 4  0  ,  36  8.40 
OATA  (ETA(5,J> 
CO.  7251  ,  0.  7762 

,342.60  / 

, J=1,1Q)/ 

,0.6281  ,0.8545 

,0.8800 

,0.9011 

,0.9038 

» 

CO.  9011  ,  0.  6800 
OATA  (PR  (6  , J) 
Cl.  0000  ,  1.  1000 

,0.8281  / 

, J=l,10>/ 

,1.1600  ,1.2000 

,1.2280 

,1.2552 

,1.2720 

, 

Cl.  2864  ,1.  3024 
OATA  (HAC ( 6, J) 
C499.  81  ,  495.  80 

,1.3320  / 
,J=1,1Q)/ 

,493.20  ,485.40 

,476.40 

,  466 . 8  0 

,456.60 

, 

C448.20  ,433.20 
OATA  (ET  A  (  6,  J) 

C  0.  68 82  ,0.  7762 

,406.80  / 

,  J=l,10>/ 

,0.8281  ,0.8545 

,0.6800 

,0.9011 

,0.9108 

, 

CO.  9011  ,  0.  8800 
OATA  (PR  (7  ,  J) 
Cl.  0000  ,1.  0760 

,0.8272  / 

,  <J=1  y  10  )  / 

,1.1520  ,1.2192 

,1.2600 

,1.2896 

,1.3312 

» 

Cl.  3616  ,1.3912 
OATA  (HAC( 7, J) 

C 56 6.  41  ,566.40 

,1.4000  / 
,J=1,1Q)/ 

,566.39  ,559.80 

,553.20 

,544.80 

,526.60 

» 

C509.40  ,483.60 
OATA  (ET  A( 7, J) 
CO.  6415  ,  0.  7251 

,474.00  / 
,J=l,10>/ 

,0.7762  ,0.8281 

,0.8589 

,0.8800 

,0.9011 

, 
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CO.  8800  ,0.  8281 
OATA  (PR  <6  ,4) 
Cl.  0000  ,1.0440 
Cl.  42  80  ,1.4480 
OATA  (NAC( 8,  J) 

C 63  3  .  61  ,63  3.60 
C586.  80  ,576.60 
OATA  (ETA(8,J) 
CO.  6002  , 0. 6415 
CO.  8589  ,0.  8261 
CATA  (PR  (9  ,  J) 
C1.  0000  , 1.  1C  AO 
Cl.  5336  ,1.5660 
OATA  (MAC( 9, J) 

C 70 0.  22  ,700.21 
C683.40  ,666.60 
CATA  (ET A ( 9, J) 
CO.  5694  ,0.6415 
CO.  7762  ,0.7454 
OATA  (PR  (1  0,  J) 
Cl.  0000  ,1.  1632 
Cl.  6600  / 

OATA  (WAC(  10 ,  J) 
C750.  03  ,750.02 
C  73  6.  80  / 

OATA  (ETA(  10  ,J) 
CO.  5174  ,0.6415 
CO.  6415  / 

ENO 


0.8175 

J»1 ,10) 

1.1352 

1.4800 

4*1,10) 

633.59 

553.20 
J*l,10) 
0.7251 
0.7867 
4*1,10) 
1.220C 
1.5640 
J-1,10) 

700.20 
656.40 
J-1,10) 
0.7251 
0.7251 
J=i  ,9  ) 
1.3120 


J=1 ,8  )/ 


J=1 , 8  )/ 


1.2206 

,1.2944 

,1.3400 

,1.4000 

633.00 

,625.60 

,616 .60 

,600.00 

0.7762 

,0.6261 

,0.6569 

, 0 . 8800 

1.3240 

,1.4000 

,1.4480 

,1.5000 

700.19 

,700.16 

,698.40 

,693.60 

0.7762 

,0.6026 

,0.8076 

,0.8026 

1.4000 

,1.4600 

,1.5400 

,1.5600 

750.00 

,749.99 

,749.98 

,749.40 

0.7559 

,0.7612 

,0.7506 

,0.7251 
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BLOCK  OATA  INTOAT 

THIS  IS  A  GENERALIZED  INT.  COMP.  MAP  FOR 
COMMON/  INT/CNC15)  ,PR(15,15)  »WAC(15,15> 


UNREALISTIC  SUPERSONIC  EN  ! 
,ETA(15,15) ,N,NP<15) 


OATA  CN/0.3,0.4 
OATA  (PR(i,J> 

,0.5, 0.6, 0.7, 0.6 
,1=1,6  )/ 

,0.9,1. 0 

,1.1, 1.2 

,5*0./ 

Cl.  00  0  Q  ,1.0180 
OATA  (HAC  ( 1,  J ) 

,1.0420  ,1.0576 
,J=1,6  )/ 

,1.0  672 

,1.0720 

/ 

C121.80  , 114.90 
OATA  (ET A{  iy  J) 

,99.900  ,83.400 
,J=i,6  )/ 

,66.600 

,43.200 

/ 

CO.  7559  ,  0.  7612 
OATA  (PR  (2  y J) 

,0.7665  ,0.7559 
, J=1 ,7  )/ 

,0.7251 

,0.6415 

/ 

Cl.  00  0 0  ,1.0300 
OATA  (HAC(2,J) 

,1.0600  ,1.0876 
,  J=1 ,7  1/ 

,1.1128 

,1.1360 

,1.1500 

C 143. 40  ,135.00 
GATA  (ET  AC  2, J) 

,126.60  ,116.70 
, J=1 ,7  1/ 

,104.70 

,91.800 

,78.300 

CO.  7559  ,  0. 7762 
OATA  (PR  (3  , J ) 

,0.7420  , 0.7973 
, J=1 ,7  )/ 

,0.8026 

,0.7762 

,0.7401 

Cl.  0000  ,  1.  0384 
OATA  (HACCiyJ) 

,1.0768  ,1.1200 
, J=l,7  }/ 

,1.1740 

,1.1980 

,1.2220 

C166.80  ,161.40 
OATA  (ETA  (  3,  J) 

,155.10  ,145.80 
,  J=1 ,7  )/ 

,129.90 

,120.00 

, 106. 80 

C0.75J6  ,0.7762 
OATA  (PR  (4  , J ) 

,0.8026  ,0.8281 
, J=1 ,7  )/ 

,0.8439 

,0.8281 

,0.7762 

Cl.  0000  ,1.  0552 
OATA  (HAC  (  4,  J ) 

,1.1320  ,1.1860 
, J=1 ,7  )/ 

,1.2400 

,1.2844 

,1.2928 

C 19 1.7  0  ,18  8.10 
OATA  (ET  A ( 4, J ) 

,179.10  ,170.10 
, J=1 ,7  )/ 

,156.60 

,138.30 

,133.20 

C 0.  7454  ,0,7762 
OATA  (PR  (5  ,  J) 

,0.8281  ,0.8545 
, U=i , 10 1 / 

,0.8800 

,0.8281 

,0.8078 

Cl.  0000  ,  1.  0960 
Cl.  3360  ,1.  3660 
DATA  (WAC( 5, J) 

,1.1776  ,1.2220 
,1.4008  / 
,J=1,10)/ 

,1.2760 

,1.3144 

,1.3264 

C219.90  ,218.40 
C191.70  ,184.20 
OATA  (ET  A( 5, J) 

,214.20  ,210.30 
,171.30  / 
,J=1,10>/ 

,203.40 

,196.80 

,194.10 

C  u.  7251  ,0.7762 
C  Q.  90  11  ,0.  8800 
OATA  (PR  (6  , J ) 

,0.8281  ,0.8545 
,0.8281  / 
,J=1,10)/ 

,0.8800 

,0.9011 

,0.9038 

Cl.  0000  ,  i.  1500 
Cl.  4296  ,1.  4536 
OATA  (WAC(  6,  J) 

,1.2408  ,1.3000 
,1.4980  / 

, J=i ,10)  / 

,1.3420 

,1.3828 

,1.4080 

C249.91  ,249.90 
C  22  4,  1 0  ,  216.60 
OATA  (ETA(6,J) 

,246.60  ,242.70 
,203.40  / 
,J=1,10)/ 

,236.20 

,233.40 

,228.30 

C  0.  6882  ,  0.  7762 
CO.  9011  ,  0.8800 
OATA  (PR  (7  ,  J) 

,0.8281  ,0.8545 
,0.8272  / 
,J=1,10)/ 

,0.8800 

,0*9011 

,0.9108 

Cl.  0000  ,  1.  1140 
Cl.  5424  ,  1.5868 
OATA  (WAC( 7, J) 

,1.2280  ,1.3288 
,1.6000  7 
,J=1,10)/ 

,1.3900 

,1.4344 

,1.4968 

C283.21  ,283.20 
C254.  70  ,  241.  80 
GATA  (ETA(7,J> 

,283.19  ,279.90 
,237.00  / 
,J=1,1Q>/ 

,276.60 

,272.40 

,264.30 

CO.  6415  ,  0.  7251 

,0.7762  ,0.8281 

,0.8589 

,0.8800 

,0.9011 

'Karamw 


C 0*  5800  ,0.8281 
OATA  (PR  (8  ,  J ) 
Cl.  0000  ,1.0660 
C 1.  6420  ,1.6720 
OATA  (WAC( 8, J) 
C316.81  ,316.60 
C29  3.40  ,286.30 
OATA  (ET  A ( 6, J) 
CO.  6002  ,0.6415 
C  0.  8589  ,0.6281 
OATA  (PR  (9  ,JI 
C1.0000  ,1.1560 
Cl.  800  4  ,1.8520 
OATA  (WAC ( 9, J) 
C350.12  ,350.11 
C341.70  ,333.30 
OATA  (ETA( 9, J) 
CO.  5694  ,0.6415 
CO.  7762  ,0.7454 
OATA  (PR (1 0, J) 
C1.0000  ,1.2448 
Cl.  9900  / 

OATA  (HAC(  10 ,J) 
C 375.  03  ,375.  02 
C368.40  t 
OATA  (ETA(  10 , J) 
CO.  5174  ,0.6415 
CO.  6415  / 

ENO 


0.8175 
J*l,10> 
1.2028 
1.7200 
J*l,10> 
316.79 
276.60 
J>1,10) 
0.7251 
0.7867 
J-1,10) 
1.3300 
1.8760 
J=l,10> 
350.10 
328.20 
J>1,10) 
0.7251 
0.7251 
J=l,fl  ) 
1.4660 


J=l,8  )/ 


J=l,8  >/ 


1.3312 

,1.4416 

,1.5100 

,1.6000 

316.50 

,312.90 

,308.40 

,300.00 

0.7762 

,0.6261 

,0.6569 

,0.6800 

1.4860 

,1.6000 

,1.6720 

,1.7500 

350.09 

,350.08 

,349.20 

,346.80 

0.7762 

,0.8026 

,0.6078 

,0.6026 

1.6000 

,1.7200 

,1.8100 

,1.8700 

375.00 

,374.99 

,374.96 

,374.70 

0.7559 

,0.7612 

,0.7506 

,0.7251 
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BLOCK  DATA  CHPOAT 

THIS  IS  A  GENERALIZED  H.P.  COMP.  HAP  FOR  UNREALISTIC  SUPERSONIC  En 
COMMON/  C0MP/CNC15) ,PR(15, 15) , MAC  115,151 ,ETA (15, 15) , N,NP (15) 

OATA  N,NP/10, 2*6, 2*8, 4*10, 2*8, 5*0/ 

OATA  CN/. 562,. 674,. 787,. 899,1., 1.034, 1.067, 1.124, 1.236,1.292,5*0./ 


OATA  (PR  (1 ,  Jl 

,J*i,6  if 

C1.  0000  ,1.  8400 

,2.4280  ,2.8690 

,3.8350 

,4.5490 

/ 

OATA  (NAC(i, J) 

, J*l*6  )/ 

C51.000  ,50.200 

,49.500  ,46.800 

,46.700 

,44.500 

/ 

OATA  <ETA(  1, J) 

, J*1 ,6  )/ 

CO.  5906  ,0.6216 

,0.6424  ,0.6527 

,0.6734 

,0.6424 

/ 

OATA  (PR (2  ,  J) 

,J-1,6  >/ 

Cl.  0000  ,1.9660 

,3.0930  ,3.9330 

,4.6690 

,5.5290 

/ 

OATA  (NAC( 2, J) 

, J=1 ,6  >/ 

C59.300  ,59.269 

,58.600  <,57.900 

,56.700 

,55.000 

f 

OATA  (ET  A  (  2,  J) 

»J=i»6  )/ 

CO.  5906  ,0.6424 

,0.6940  ,0.7250 

,0.7456 

,0.7250 

f 

CATA  (PR  (3  ,  J) 

,J*i,8  if 

Cl.  00C0  ,1.6400 
C6.  5230  / 

,2.6800  ,3.4080 

,4.5210 

,5.4450 

,6.3130 

, 

OATA  (KAC (3, J) 

,J=1,8  )✓ 

C 70 . 0 0 _  ,70.000 
C65.700  / 

,69.999  ,69.500 

,66.600 

,67.900 

,66.400 

> 

OATA  (ET  A(3,  J) 

,J=1,8  if 

CO.  5857  ,  0.  6424 
CO.  7697  / 

,0.6837  ,0.7250 

,0.7774 

,0.7929 

,0.7774 

» 

OATA  (PR  (4 ,  J) 

, J=l,8  if 

Cl.  0000  ,2.  0080 
C7.  9580  / 

,3.4290  ,4.6050 

,5.6970 

,6.6140 

,7.5380 

, 

OATA  (MAC  ( 4,  J) 

,J=1,8  if 

C84.802  ,84.601 
C 80  .500  / 

,84.800  ,84.799 

,84.000 

,83.300 

,81.700 

, 

OATA  (ETA(  4,  J) 

,J=1,8  if 

CO.  5805  ,0.  6424 
CO.  7929  / 

,0.7250,0.7774 

,0.6084 

,0.8290 

,0.80  4 

, 

OATA  (PR  (5  ,  J I 

,J=1,10)/ 

Cl.  0000  ,2.  519C 

,3.9820  ,5.2770 

,6.4880 

,7.2020 

,8.0000 

, 

C8<  5670  ,9.2860 

,9.5960  f 

OATA  (WAC(  5,  J) 

,J=1,10>/ 

C 10 1.  72  ,101.71 

,101.70  ,101.69 

,101.20 

,101.00 

,100.00 

, 

C59.500  ,98.100 

,97.400  / 

OATA  (ET  A<  5,  J) 

,J=1,10)/ 

CO.  5716  ,  0.  6424 

,0.7250  ,0.7774 

,0.8084 

,0.8394 

,0.8600 

, 

CO.  8394  ,0.  8034 

,0.8058  / 

OATA  (PR  (6 » J  ) 

,J=1,10>/ 

Cl.  0000  ,2.  8550 

,4.2970  ,5.6130 

,6.9360 

,7.6220 

,8.5460 

i 

C 6.  1340  ,9.9250 

,10.2190/ 

OATA  (MAC(€, J) 

,J=1,10)/ 

C 10 8.  12  ,108.11 

,106.10  ,108.09 

,107.60 

.107.10 

,106.70 

, 

C 10  6*  0  0  ,104.50 

, ION. 00  / 

CATA  (ET  A  ( 6,  J ) 

,J=1,10>/ 

CO.  5702  ,0.6424 

,0.7250  ,0.7774 

,0.8064 

,0.8394 

,0.8600 

, 

CO.  8394  ,0.  8084 

,0.8041  / 

OATA  (PR  (7  ,  J ) 

,J=1,10>/ 

Cl.  0000  ,3.2610 

,4.7590  ,6.1170 

,7.4540 

,6.3080 

,9.2180 

, 
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C 9*  6380  >10.513 

>10.996  / 

OATA  (MAC ( 7,  J) 

,J=i,10>/ 

C 11 4. 52  >114.51 

>114.50  >114.49 

,114.48 

>114.30 

>113.60 

C113.30  >112.60 

>112.40  t 

OATA  (ETA(7, J) 

,J=i,10)/ 

CO.  5599  >0.6424 

,0.7250  ,0.7774 

>0.8084 

>0.8394 

>0.6497 

CO.  8394  >0.  8084 

>0.7981  / 

OATA  (PR  (8  >  J) 

, J*l,10)/ 

C1.  0000  >1.6860 

>3.8490  >5.4660 

>  6 .8660 

>8.3710 

>8.9660 

C9.  8830  >10.912 

>11.815  / 

OATA  (MAC( 8> J) 

,J=1,1Q)/ 

C 12 2.  93  >122.92 

,122. 91  >122.90 

>122.89 

>122.88 

,122.60 

C122.10  >121.70 

>120.70  / 

CATA  (ETA(  8>  J) 

>J=1,10)/ 

CO.  5392  >0.5702 

>0.6424  >0.7250 

,0.7774 

>0.6084 

,0.8239 

CO.  8394  >  0.  8084 

,0.7774  / 

CATA  (PR  (9  >  J) 

> J=1 > 8  )/ 

Cl->  QCOO  >  4.  3530 
C13.656  / 

>7.6220  >10.219 

>11.059 

>11.699 

,13.159 

OATA  (MAC ( 9,  J) 

,J*1,8  )/ 

C139.82  ,139.81 
C139.00  / 

>139.80  >139.79 

,139.78 

>139.50 

>139.30 

OATA  (ET  A (  5>  J) 

>  J=i >8  ) / 

C  0.  4764  >0.6011 

C 0. 6992  / 

,0.7250  >0.7774 

>0.7826 

,0.7774 

,0.7250 

OATA  (PR  <1 0>  J) 

,J=1,8  )/ 

C1.  0000  >3.7650 
C14.412  / 

,6.4810  >9.1760 

>10.219 

>11.479, 

12.711 

OATA  (MAC(  10 ,  J) 

> J-1,8  )/ 

C 146.  24  >146.23 
C146.17  / 

,146.22  ,146.21 

>146.20 

>146.19 

>146.16 

OATA  (ETA(  10  >  J) 

,J=1,6  >7 

C 0.  4661  ,0.5702 
CO. 6424  / 

,0.6424  ,0.7250 

>0.7508 

>0.7508 

>0.7250 

BLOCK  OATA  LTURB 

THIS  IS  A  GENERALIZED  L.P.  TURBINE  MAP 
COMMON/  LTURE/TFFC15) »CN (15,15) ,0H(15, 15) 
OATA  N,NP/li, 9*15, 12, 9,4*0/ 

OATA  TFF/  68 .47  0 ,  102,80,  116.84,  129.33, 
1  153.35,  156.41,  159.78,  163.17,  4*0./ 


,ETA  (15 
141.05 


,15) , N, NP (15 ) 

,  145.73,  15u.Oo, 


JATA  (  CN(  1,J) 

» J=1 ,15)  / 

CO.  3682,  0.5336, 

0.7365,  0.9754, 

1.2146, 

1.4173, 

1.6201, 

1.7673 

C2.0247,  2.2827, 

2.4665,  2.6137, 

2.8166, 

2.9456, 

3.3138/ 

OATA  (  DHC  1,J> 

,J*i,15)/ 

CO. 0010,  0.  0026, 

0.0035,  0.0044, 

0.0051, 

0.0056, 

0.0059, 

0.0061 

C 0.  0062,  0.0061, 

0.0057,  0.0053, 

0.0044, 

0.0035, 

0.0001/ 

OATA  (ETAC  1,J) 

,J=1,15)/ 

C 0. 7120,  0.7300, 

0.7472,  0.7300, 

0.7140, 

0.7008, 

0.6850, 

0.6730 

C  0.  6452,  0.6200, 

0.6000 ,  0.5750, 

0.5310, 

0.5000, 

0.3850/ 

OATA  (  CN(  2 , J) 

»  J-i ,15)  / 

C  0. 3682,  0.5518, 

0.7919,  1  0672, 

1.2682, 

1.4446, 

1.6937, 

1.8954 

C2.0619,  2.2273, 

2.3747,  2.6229, 

2.8720, 

3.0555, 

3.3138/ 

OATA  (  OH (  2 , J) 

, J=i ,15) / 

C  0.  0026,  0.  0039, 

0.0054,  0.0069, 

0.0080, 

0.0087, 

0.0096, 

0.0101 

C  0.  0104,  0.  0107, 

0.0108,  0.0106, 

0.0101, 

0.0094, 

0.0077/ 

OATA  (ETA(  2,J) 

, J-l ,15) / 

CO.  8000,  0.  8100, 

0.8200,  0.8300, 

0.8300, 

0.6290, 

0.8100, 

0,8000 

C0.785Q,  0.7600, 

0.7450,  0.7000, 

0.6800, 

0.6450, 

0.5900/ 

OATA  t  CN(  3 , J) 

, Jsl,15) / 

CO.  3682,  0.5911, 

0.8655,  1.0764, 

1.2519, 

1.4354, 

1.6201, 

1.8409 

C 2.  0247,  2.2455, 

2.4302,  2.5956, 

2.7791, 

3.0555, 

3.3138/ 

OATA  ?  OH (  3 , J) 

, J-l ,15) / 

CO.  0031,  0.  0051, 

0.0071,  0.0087, 

0.0099, 

0.0111, 

0.0122, 

0.0134 

CO.  0143,  0.(152, 

0.0157,  0.0162, 

0.0166, 

0.0167, 

0.0164/ 

OATA  CET A (  3,J) 

, J»i ,15)  / 

CO.  800(1,  Q.63QQ, 

0.8600,  0.8630, 

0.8670, 

0.8700, 

0.8720, 

0.8720 

CO.  87001,  0.8670, 

0.8600,  0.8500, 

0.6300, 

0.6Q00, 

0.7600/ 

OATA  (  CNC  4 , J) 

, J=1 ,15)  / 

C  0*  3682,  0.  4237, 

0.6810,  0.8837, 

1.1047, 

1.2882, 

1.5090, 

1.7482 

C2.  0429,  2.2091, 

2.3747,  2.6047, 

2.6720, 

3.1291, 

3.3138/ 

OATA  (  OH (  4 , J) 

,  JS1 , 15)  / 

CO.  0033,  0.  0038, 

0.0061,  0.0078, 

0.0096, 

0.0118, 

0.0126, 

0.0141 

C Q.  0159,  0.  0166, 

0.0174,  0.0183, 

0.0191, 

0.0195, 

0.0197/ 

OATA  1ETAC  4,J) 

, J=1 ,15) ✓ 

CO.  7995,  0.  6000, 

0.8400,  0.8600, 

0.8660, 

0.8730, 

0.8800, 

0.8830 

CO.  8835,  0.  8820, 

0.8800,  0.8740, 

0.8600, 

0.6350, 

0.6200/ 

OATA  <  CNf  5,J) 

, J=1 , 15)  / 

CO.  3682,  0.  5065, 

0.7365,  0.9754, 

1.2882, 

1.5647, 

1.7301, 

1.9690 

C  2.  0983,  2.2637, 

2.4332,  2.6691, 

2.9456, 

3.1846, 

3.3138/ 

OATA  (  OH (  5 , J) 

» J=1 , 15)  / 

CO.  0036,  0.  0049, 

0.0071,  0.0092, 

0.0119, 

0.0141, 

0.0155, 

0.0172 

C  Qc  0181,  0.0192, 

0.0202,  0.0214, 

0.0226, 

0.0235, 

0.0239/ 

OATA  (ET  A (  5  ,  J) 

, J-l, 15) / 

CO. 7750,  0.  8000, 

0.8480,  0.8600, 

0.8750, 

0.8900, 

0.8912, 

0.8940 

C 0.  8955,  0.8970, 

0.8961,  0.8900, 

0  .8790  , 

0.6671, 

0.6600/ 

OATA  (  CN (  6 , J) 

, J-l ,15) / 

C  0.  3682,  0.6164, 

0.8372,  1.1047, 

1.2662, 

1.5283, 

1.7462, 

1.9509 

C  2.  2133,  2.4302, 

2.6510,  2.8619, 

3.1384, 

3.2584, 

3.3138/ 

OATA  (  OH (  6 , J) 

» J=1 , 15)  / 
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C  0.  00  38, 

0. 0064, 

0.0067,  0.0113, 

Q  *0 130  , 

0.0152, 

0.0171, 

CO.  0209, 

9. 0226, 

0.0244,  0.0259, 

0.0286, 

0.0303, 

0.0319/ 

OATA  (ETAC  6,J) 

» J*i ,15)/ 

CO.  7600, 

G* 6000, 

0.8450,  0.8600, 

0.8730, 

0.8900, 

0.8950, 

CO.  9005, 

0.9010, 

0.9004,  0.9000, 

0.69C0, 

0.8800, 

0.8735/ 

OATA  ( 

CN(  7, J) 

, J®1 , 15 ) / 

CO.  3662, 

0. 7728, 

1.0129,  1.2659, 

1.4729, 

1.6""85, 

1.6409, 

C2.1901, 

2.  3000, 

2.3929,  2.5038, 

2.5583, 

2.6137, 

2.6319/ 

OATA  ( 

0H(  7 , J) 

, J=l,15)/ 

CO.  0044, 

0. 0089, 

0.0115,  0.0141, 

0.0162, 

0.0181, 

0.0197, 

CO.  0235, 

0. 0250, 

0*0265,  0.0284, 

0.0296, 

0.0314, 

0.0329/ 

OATA  (ETA(  7, J) 

, J=l,15)/ 

CO.  7310, 

0. 8000, 

0.8300,  0.8600, 

0.8750, 

Q.8900, 

0.8930, 

CO.  8999, 

0.9000, 

0.8960,  0.8937, 

0.8900, 

0.6799, 

0. 6710/ 

OATA  ( 

CN (  8 , J) 

,  J=1 ,15)  / 

CO.  3662, 

0. 6072, 

0.7919 >  0.9754, 

1.2337, 

1.4548 , 

1.6383, 

Cl. 9509, 

2. 0801, 

2.1537,  2.2091, 

2.2637, 

2.3009, 

2.3051/ 

OATA  ( 

DH(  8, J) 

, J=l,15)/ 

CO.  0048, 

0. 0078, 

0.0102,  0.0124, 

0.0153, 

0.0177, 

Q.tt201, 

CO.  0242, 

6. 0261, 

0.0274,  0.0285, 

0.0299 , 

0.0314, 

0.0321/ 

DATA  (ETAC  8,J) 

» J=i»15) / 

CO.  7100, 

0. 7450, 

0.7680,  0.8000, 

0.8380, 

0.8600, 

0.8712, 

C  0.  88  00, 

0.  8775, 

0.8760,  0.8722, 

0.8660, 

0.6600, 

0.6480/ 

OATA  ( 

CN(  9 , J) 

,  J=i ,15) / 

CO.  3662, 

0.5518* 

0.6629,  0.8282, 

1.0129, 

1.1691, 

1.2337, 

Cl.  5263, 

1.6201, 

1.7482,  1.84Q9, 

1.8954, 

1.9147, 

1.9237/ 

CATA  ( 

OH (  9, J) 

, J=1 ,15) / 

CO.  0054, 

0.0060, 

0.0096,  0.0119, 

0.0141, 

0.0160, 

0.0169, 

CO.  0209, 

0. 0223, 

0.0/44,  0.0263, 

0.0279, 

0.0289, 

0.0303/ 

OATA  (ET A (  9 , J) 

,3=1,15) / 

CO.  6780, 

0.  7000, 

0-  7125,  0.7350, 

0.7690, 

0.6000, 

0.8060, 

CO.  8395, 

0.8450, 

0.8470,  0.8445, 

0.8330, 

0.6235, 

0.6080/ 

OATA  ( 

CN ( 10 , J) 

, J=l,12)/ 

CO.  3682, 

0.4782, 

0*6447,  0.7546, 

0.6655, 

0.9754, 

1.1047, 

Cl.  2701, 

1. 3073, 

1.3365,  1.3407/ 

CATA  ( 

OH  ( 10  , 

,J=1,12)/ 

CG.  0061, 

0.(1078, 

0.0104,  0.0122, 

0.0139, 

0.0157, 

0.0161, 

CO.  0217, 

0.  (1230, 

0.0244,  0.0251/ 

OATA  (ET A(10  ,  J) 

• J=1 ,12) / 

CO.  6380, 

Q.  f:550, 

Q.6700,  0.6850, 

0.7000, 

0.7110, 

0.7160, 

CO.  7170, 

0.7140, 

0.7000,  0.6890/ 

OATA  ( 

CN(  III ,  J) 

,3=1,9  )/ 

CO.  3682, 
CO.  9715/ 

0.  1  >4 18, 

0.5518,  0.6447, 

0.7365, 

0.8282 , 

0.6837, 

OATA  ( 

ohc:i,j) 

,3=1,9  )/ 

CQ.  0069, 
CO.  0201/ 

Q.  li 0  06, 

0.0106,  0.0123, 

0.0141 • 

0.0159, 

0.0172, 

OATA  (ET  A ( 11 , J) 

» J=1 ,9  )/ 

CO.  6000, 

0.6000, 

0.6120,  0.6170, 

0.621G, 

0.6256, 

0.6250, 

CO.  60(19/ 
ENO 


nscwe2S*»n 

0.0187, 

0.9000, 

2.0247, 

0.0216, 

0.8975, 

1.8409, 

\ 

0.0226, 

0.8760, 

1.3809, 

0.0188, 

0.8225, 

1.2015, 

0.0201, 

0.7160, 

0.9391, 

0.0166, 

0.6230, 
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8L0CK  OATA  ITUR8 

THIS  IS  A  GENERALIZED  I.P.  TURBINE  HAP 

COMMON/  ITURE/TFFC15!,CN<15,15)  ,QHC15, 15) , ETA <15 ,15) ,N,NP(15) 
OATA  N,NP/11,9*15,12,9,4*Q/ 

DATA  IFF  /  39.670,  82.236,  93.466,  103.464,  112.836,  116.580, 

1  120.000,  122.68,  125.12,  127.62,  130.536.  4*0./ 


OATA  (  CN (  1,J 
C  0.  3522,  0.5104 
Cl.  9367,  2.  1835 
CATA  (  OH(  1,J 
C 0.  0016,  0.  0023 
C 0.  0055,  0.  0054 
OATA  CETAC  1,J 
C  Q.  7120,  0.  7300 
CO.  6452,  0.6200 
OATA  (  CN(  2, J 
CO.  3522,  0.5278 
Cl.  9723,  2.1305 
OATA  (  DHC  2, J 
C  0.  0023,  0.  0035 
C  0.  0092,  0.  0094 
OATA  CETAC  2,J: 
CO.  80  00,  0.  8100 
CO.  7650,  0.7600 
OATA  <  CNC  2,J 
CO.  3522,  0.5654 
Cl.  9367,  2.1479 
OATA  (  0H(  2 , J: 
CO. 0027,  0.0045 
C  0.  0126,  0.0134 
OATA  CETAC  2,J 
CO.  8Q0  0,  0.  8300 
C 0.  87  00,  0.  8670 
CATA  (  CN(  3 , J 
C 0.  35 22,  0.5654 
Cl.  9367.  2.1479 
OATA  <  OHC  3, J 
CO.  0027,  0.  0045 
CO.  0126,  0.0134 
OATA  CETA(  3 ,  J 
C0.  8000,  0.  8300 
CO.  870  0,  0.  6670 
OATA  <  CN<  4 , J 
C  0.  3522,  0.  4052 
Cl.  954Q,  2.1131 
OATA  <  DHC  4 , J 
CO.  0029,  0.  0034 
CO.  0140,  0.Q146 
OATA  CET A<  4 , J 
C  0.  7995,  0.  6000 
CO.  8635,  0.  8830 
OATA  (  CNC  5 , J 
CO.  3522,  0.  4644 
C2.  0071,  2.1652 
OATA  C  OHC  5,J 


,J=i*15)/ 
0.7044,  0.9330 
2.3593,  2.5001 
,  J-1,15)/ 
0.0031,  0.0038 
0.0051,  0.0047 
» Jsl,15) / 
0.7472,  0.7300 
0.6000,  0.5750 
, J=l,15) / 
0.7575,  1.0208 
2.2715,  2.5089 
,  J=1 ,15) / 
C.0047,  0.0061 
0.0095,  0.0093 
,3-1,15) / 
0.6200,  C. 8300 
0.7450,  0.7000 
,J=1,15)/ 
0.8279,  1.0296 
2.3245,  2.4827 
, JS1 ,15) / 
0.0063,  0.9076 
0.0139,  0.0142 
, J-1,15) / 
0.8600,  0.8630 
0.8600,  0.8500 
»  J=l , 15)  / 
0.8279,  1.0296 
2.3245,  2.4827 
, J-1,15) / 
0.0063,  0.0076 
0.0139,  0.0142 
,J=1,15)/ 
0.6600,  0.8630 
0.6600,  0. 8500 
, J-i ,15) / 
0.6514,  0.6452 
2.2715,  £.4915 
, J=1 ,15)  / 
0.0054,  0.0069 
0.0153,  0.0161 
, J=1 ,15) / 
0.8400,  0.8600 
0.8600,  0.8740 
, J=1 , 15) / 
0,7044,  0.9330 
2.3274,  2.5531 
>  J=1 , 15)  / 


1.1618,  1.3556, 
2.6941,  2.8175, 

0.0045,  0.0049, 
0.0036,  0.0031, 

0.7140,  0.7000, 
0.5310,  0.5000, 

1.2322,  1.3816, 
2.7471,  2.9227, 

0.0070,  0.0076, 
9.0089,  0.0083, 

0.8300,  0.8290, 
0.6800,  0.645C, 

1.1975,  1.3730, 
2.6583,  2.9227, 

0.0087,  Q.QQ96, 
0.G146,  0.0147, 

0.8670,  0.8700, 
0.6300,  0.8000, 

1.1975,  1.3730, 
2.6583,  2.9227, 

0.0067,  0.0096, 
0.0146,  0.0147, 

0.8670,  0.8700, 
0.63C0,  0.8000, 

1.0567,  1.2322, 
2.7471,  2.9931, 

0.0084,  0.0097, 
0.0168,  0.0172, 

0.6680,  0.6730, 
9.8600,  0.6350, 

1.2322,  1.4967. 
2.8175,  3.0461, 


1.5497,  1.6905, 
3.1698/ 

0.0052,  0.0054, 
0.0001/ 

0.6650,  0.673u, 
0.3850/ 

1.6201,  1.813G, 
3.1698/ 

9.0084,  0.0069, 
0.0068/ 

0.6100,  0.8000, 
0.5900/ 

1.5497,  1.7609, 
3.1698/ 

0.0107,  0.0118, 
0.0145/ 

0.6720,  0.8720, 
0.7600/ 

1.5497,  1.7609, 
3.1698/ 

0.0107,  0.0118, 
0.0145/ 

0.8720,  0.8720, 
0.7600/ 

1.4434,  1.6722, 
3.1698/ 

0.0111,  0.0124, 
0.0173/ 

0.8800,  0.8830, 
0.6200/ 

1.6546,  1.6834, 
3.1698/ 


VEOHBw&X 


^rWRS'ii  4*5^53 


*a84&£ 


CO*  3031, 

0.  0043, 

0.0062,  0.  00  31  r 

0.0105, 

0.0124, 

0.0136, 

0.0152, 

CO*  0159, 

0.  0169, 

0.0178,  0.0189, 

0.0199, 

0.0207, 

0.0210/ 

OATA  <ETA<  5, J) 

r  J-l , 15) / 

CO.  7750, 

0. 6000, 

0.8480,  0.860C, 

0.8750  , 

0.8900, 

0.8912, 

u • 8940 , 

CO.  3955, 

0.  8970, 

0.8961,  0.8900, 

U  .8790 , 

0.8671, 

0.8600/ 

DATA  { 

CN(  6 , J) 

,  J=i ,15) / 

CO*  3522, 

0. 5896, 

0.8008,  1.0567, 

1.2322, 

1.4619, 

1.6722, 

i.e6eo, 

C2.U71, 

2.  3245, 

2.5357,  2.7375 , 

3.0019, 

3*1167, 

3.1698/ 

OATA  ( 

DH(  6,J) 

, JS1 i 15) / 

CO.  0034, 

0. 0057, 

0.3076,  0.0100, 

0.0114, 

0.0134, 

0.0150, 

0 . 0165 , 

CO.  0184, 

0. 0199, 

0.0214,  0.0228, 

0.0251, 

0.0267, 

0.0290/ 

OATA  (ET A<  6 , J) 

,  J-l, 15)/ 

CO.  7600, 

0. 6000, 

0.  *50  ,  0. 8.'30, 

0*8730, 

0.8900, 

0.8950, 

0 . 90  00, 

CO.  9005, 

0.9010, 

0.9004,  0.9000, 

0.6900, 

0.6800, 

0.6710/ 

OATA  < 

CN(  7 , J) 

,Jsl,15)/ 

CO.  3522, 

0. 7392, 

0.9689,  1.2109, 

1.4089, 

1.6056, 

1.7609, 

1.9367, 

C 2*  0948, 

2*2000, 

2.2689,  2*3949 , 

2.4471, 

2.5001, 

2.5175/ 

OATA  ( 

OH  (  7 ,  J) 

,  J=l,15)/ 

CC.  0038, 

0.  0078, 

0.0101,  0.0124, 

0.0142, 

0.0159, 

d.0173, 

0.0190, 

CO.  0207, 

0.  0220, 

0.U233,  0.0250, 

0.0261, 

0.0276, 

0.0290/ 

OATA  (ETAC  7,JJ 

9 J-l, 15)/ 

CO, 7310, 

0. 8000. 

0.8300,  0.6600, 

0.6750, 

0.8900, 

0.8930, 

0.8975, 

CO.  8999, 

0. 9000, 

0.8980,  0.3937, 

0.8900, 

0.8799, 

0.8710/ 

OATA  < 

CN (  8  ,  J) 

,  J-i ,15) / 

CO.  3522, 

0.5808, 

0.7575,  0.9330, 

1.1601, 

1.3915, 

1.5671, 

lc  7609, 

Cl.  8660, 

1.5897, 

2.0601,  2.1131, 

2.1652, 

2. 2009, 

2.2048/ 

OATA  i 

OH  (  8  ,  J) 

, J=l,15)/ 

CO.  0042, 

0.U069, 

0.0090,  0.0109;' 

0'0135, 

0.0156, 

(5.0177, 

0.0199, 

CO.  0213, 

0.  1)23  U , 

0,0241,  0.0251, 

0.0263, 

0.0276, 

0.0283/ 

OATA  (ET A (  8 , J) 

,  J=1 , 15) / 

CO.  7100, 

0.7450, 

0.7680,  0.8090, 

0.8380, 

0.8600, 

0.9712, 

0.8780, 

CO.  8800, 

0. 8775, 

0.6760,  0.8722, 

0.8660, 

0 . 860  0  # 

0.8480/ 

OATA  { 

CN(  9, J) 

, J=l,15)/ 

CO.  3522, 

0.5278, 

0.6340,  0.7922, 

0.9689, 

1.1183, 

1.1801, 

1.3299, 

Cl.  4619, 

1. 5497, 

1.6722,  1.7609, 

1.8130 , 

1.8315, 

1.8401/ 

OATA  l 

OH (  9  ,  J) 

,  J=1 , 15)  / 

CO.  0047, 

0.  0070, 

0.0084,  0*0104, 

0.0124, 

0.0141, 

0.0148, 

0.0166, 

CO.  0184, 

0. 0196, 

0.0214,  C.0232, 

0.9245, 

0.0255, 

0.8267/ 

OATA  (ETAC  9,J» 

, J=i,15l/ 

C0.678Q, 

0. 7000, 

0.7125,  0.7350, 

0.7690, 

0.6000, 

0.8060, 

0.8225, 

CO.  8395, 

0. 8450, 

0.8470,  0.8445, 

0.8330, 

0*8235, 

0.8080/ 

OATA  ( 

CNUO,J) 

» J=1 ,12)  / 

CO.  3522, 

0. 4574, 

0.6167,  0.7218, 

0.8279, 

Q • 9330 , 

1.0567 , 

1.1493, 

Cl.  2148, 

1.  2505, 

1.2 784,  1.2824/ 

CAT  A  ( 

OH(10  ,j> 

, J=l,12)/ 

CO.  0054, 

0.0U69, 

0.0092,  0.0107, 

0.0123, 

0.0138, 

0.0159, 

0.0177, 

CO.  0191, 

u. 0202, 

0.0214,  0.0221/ 

CATA  (ET A  J 10 , J) 

, J-l , 12)  / 

C C*  6380, 

0.655Q, 

0.6700,  0.6850, 

0,7000, 

0.7119, 

0.7180, 

0.7180, 

CO.  7170, 

0  .  7 1 4  G , 

0.7000,  Q . 6890/ 

OATA  ( 

CN  ( 11 ,  J) 

,J=1,9  )/ 

CO.  3522, 

0. 4226 , 

0.5278,  0.6167, 

0*7046, 

0.7922, 

0.8462, 

0.8983, 

CO.  9293/ 

DATA  ( 

DH(  11 ,  J> 

, J=1 , 9  )/ 

CO.  Q061, 

0. 0075, 

0.0093,  0,0108, 

0.0124, 

0.0140, 

0.0151, 

0.0164, 
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GLOCK  OATA  HTURB 

C  THIS  IS  A  GENERALIZE!)  H  •  P  ♦  TURBINE  MAP 

COMMON  /  HTUR0/TFFUS)  ,CN<15»15)  ,QH<15,15>  ,ETAC15,15)  ,N,NP<15> 
OATA  N,NP/10,9*i5,12,5*G/ 

OATA  TFF /  39.670,  42.990,  47.460,  48.610,  49.175,  49.600, 

1  50.000,  50.425,  50.920,  51.575,  5*0. / 


OATA  (  CNC 

l.Ji 

C 0.  1872,  0. 

3372, 

0.5156,  0.7128, 

0.93e2, 

1.1442, 

1.3138, 

1.5382, 

C 1.  7264,  i. 

9324, 

2.1500,  2.4058, 

2.5892, 

2.7662, 

2.9460/ 

OATA  (  OHC 

1,J) 

»J~1» 15) / 

CO.  0032,  0. 

0057, 

0.0084,  0.0108, 

0.0133, 

0.0152, 

0.0164, 

U . 0174, 

CO. 0179,  0. 

0176, 

0.0167,  0.0144, 

0.0120, 

0.0Q82, 

0.0034/ 

OATA  <ETA{ 

i,J) 

, J-l ,15) / 

CO.  6219,  0. 

7078, 

0.7868,  0.8090, 

0.8090, 

0.7963, 

0.7779, 

0.7422, 

C 0.  70 78,  0. 

7635, 

0.6068,  0.5309, 

0  o4773 , 

0.4045, 

0*3034/ 

OATA  5  CN< 

2 ,  J) 

, J=1 , 15S / 

CO.  1872,  0. 

3942, 

0.5814,  0.7128, 

0.8442 , 

0. 9604, 

1,1068, 

1.2754, 

C  1.  4450,  1. 

7068, 

1.9696,  2.27Q6, 

2.6970, 

3.0960s 

3.3774/ 

OATA  <  OH ( 

2,  J) 

,J=l,15i/ 

C  0.  00  S 8 ,  0. 

0080, 

0.0113,  0,  G136 , 

0.0156, 

a.oi-*. 

0.019? , 

0.0212, 

CO.  0228,  0. 

0248, 

Co  0  260 ,  (1.0261, 

0.0241, 

0.0188, 

0.6128/ 

OATA  CET  A  ( 

2,J) 

, J=i , 15)  / 

C  Qc  6068,  0. 

7078, 

0.6090,  0.8292, 

0  •  8363 , 

0.8393, 

0.8368, 

0*8302, 

CO.  8254,  0. 

80  90, 

0.7696,  0.7078, 

0.6066s 

0.5Q56, 

0.4197/ 

OATA  C  CN ( 

3,J> 

, J=1*15>/ 

CO.  1872,  0. 

4362, 

0.6568,  0.8726, 

1.Q696, 

1.2382, 

1.4638, 

1.6882, 

Cl.  9696,  2. 

2138, 

2.5520,  2.6650, 

3,0392, 

3  e  L  'J4  8 , 

3,3774/ 

OATA  «  OH ( 

3 ,  J) 

,  J-l  ,15)  / 

CO.  00 46,  0. 

0100, 

0.0144,  0,0184, 

0.0216, 

0.0240, 

0.0266, 

0.0292, 

CO. 0316,  3. 

0331, 

C.C344,  0.0346, 

0*0340, 

0.0324, 

0.0312/ 

DATA  CF.TAC 

3 ,  J) 

, J=i ,15) / 

C  Q«  57  64,  0 » 

7078, 

0.809Q,  0.8494, 

0.8543, 

0.8515, 

0.8494, 

0.8409, 

CO.  3262,  0. 

8090, 

G  o  7579 ,  0.7078, 

0.6652, 

0.6066, 

0.5865/ 

OATA  {  CNC 

4  ,  J) 

,J=i,15)/ 

C  0.  1872,  0. 

2550, 

0.4734,  0.6942, 

0 .9148 , 

1.1442, 

1.3662, 

1,5618, 

Cl. 8010,  1. 

9794, 

2.2794,  2.5138, 

2.8334, 

3.1422, 

3.3774/ 

OATA  <  OHC 

4  ,vJ) 

, J=1 ,151  / 

CO.  0052,  0. 

0068, 

0.0120,  0.0164, 

0.0204, 

0.C244, 

G.0280 , 

0 (i  03 04, 

CO.  0336,  G. 

0356, 

O.Oc.88,  0*0412, 

0.6441, 

0.0472, 

3.0494/ 

OATA  CET  A  C 

4 ,  J) 

»  J-l,  15)/ 

C  0.  5643,  0. 

6068, 

0.7078,  3 »  3 rt 9 0  , 

0.3494, 

0,8596, 

0.8596, 

0*8575, 

CO.  8535,  G. 

5494, 

0.8363,  0.8262, 

0.209C, 

0.7797, 

0.7534/ 

OATA  (  CN ( 

5  » J) 

,j=i,15; / 

CO.  1572,  G' 

jG  00 , 

G, 5254 ,  0.75G0. 

0.9754, 

1,2754, 

1.4824, 

1,7638, 

C 2.  0450,  2. 

3362, 

2.6450,  2.  870c-, 

3,0  764-, 

3.1520, 

3.1618/ 

OATA  C  OHC 

5,J> 

,J=1,15>/ 

CG.  0056,  0. 

9088, 

0,0144,  0.0192, 

9.0236, 

8*0288, 

0,0321, 

0  «  0360 , 

CO.  0400,  Op 

0444, 

0.0496,  G, 0540„ 

0.0596, 

0,0640, 

0.C661/ 

OATA  CET  AC 

5 » J) 

, J=1 » 15)  / 

CO,  5562,  0. 

6068, 

0.7070,  0,3090, 

Q.8494, 

0.3697, 

0,8696, 

0,8662, 

G 0. 8615,  G. 

8555, 

0.3520,  0,8494, 

0.8494, 

0*8532, 

0.6570/ 

OATA  <  CNC 

6,J> 

, J-l, 15)/ 

CG.  1872,  0. 

3568, 

2,6196,  0,8628, 

1.0932, 

1.2352, 

1.5010* 

1,6302, 

Cl.  9138,  2. 

1246, 

2.2700,  2.4226, 

2.4959, 

2.5372, 

2.5556/ 

OATA  <  OHC 

6,J) 

,J~1 ,1D>/ 
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CO.  0068, 

0. 0120, 

0.0192,  0.0252, 

0.0300, 

0.0340, 

o. 0384, 

0.0421, 

C  0.0472, 

0.  0524, 

0.0564,  0.0668, 

0.0640 , 

0.0668, 

0.0653/ 

CATA  CETAC  6,J> 

» J=1»A5)/ 

CO.  530  9, 

0.  6068, 

0.7078,  0.8090, 

2.8494? 

0.8697, 

0.8819? 

0.8899, 

CO.  8940, 

0. 8969, 

0.8975,  0.8937, 

0.8968, 

0.8937? 

0.8896/ 

OATA  C 

CN<  7 , J) 

,,*=1,15)/ 

CO.  1872, 

0. 4314, 

0.6844,  0.5568, 

1.2010, 

1.3834, 

1.5108, 

1.6186, 

Cl.  7450, 

1. 8618, 

1.9558,  2. 0060, 

2.0450, 

2.0824? 

2.1010/ 

DATA  ( 

DHiJ  7, J) 

, J— 1 , 15* / 

CO.  0080, 

0.  0164, 

0.0236,  0.0306, 

0.0372, 

0.0416, 

0.0446, 

0.0476, 

CO.  0510, 

0.  0544, 

0.0576,  0.0600, 

0.0624, 

0.0660, 

C.Q700/ 

DATA  CET  A  (  7,J) 

,  J^l ,15) / 

CO.  5062, 

0. 6068, 

0.7078,  0.8090, 

0.6494, 

0.8697, 

0.8797, 

0.8899, 

CO.  8954, 

0. 5000, 

0.9010,  0.9000, 

0.8980, 

0.8925, 

0.8793/ 

OATA  ( 

CNC  6 ,  J) 

,  J=i , 15)  / 

CO.  1872, 

0. 4834, 

0.7314,  0.8314, 

1*0226, 

1,1442, 

1.2804, 

1..3696, 

Cl.  4638, 

1. 5950, 

1.6746,  1.7450, 

1.8810, 

1.8156, 

1.8196/ 

CATA  ( 

OH  (  8  ,  J) 

,  J=1 , 15)  / 

CO.  0088, 

0.  0196, 

0.0272,  0.0316, 

0  .0356, 

0.0392, 

0.0432, 

0.0460, 

CO.  0488, 

0. 0528, 

0.0560,  0.0596, 

0.0640, 

0.0664, 

0.0693/ 

OATA  (ETA{  6,J) 

,  J*1,15>/ 

CO.  50  51, 

U. 6068, 

0.7078,  0.7665, 

0.3090, 

0,3292, 

u.8494, 

0.8596, 

CO.  8697, 

0.  36  08, 

0.8848,  0.8848, 

0 . 8783 , 

0,8697, 

0.6590/ 

OATA  < 

CN(  9 , J) 

, J*1,15J/ 

CQ.  1872, 

0.3372, 

0.5344,  0.6754, 

0 . 8C 68 , 

0.9196, 

1.0128, 

1.1254, 

Cl.  2196, 

1.3136, 

1.3696,  1.4063, 

1.4450, 

1,4638, 

1.4676/ 

DATA  C 

DH(  9 , J) 

, J*1 ,15)/ 

CO.  3093, 

0. 0159, 

0.0232,  0.0284, 

0.0330 , 

0.0368, 

0.C400, 

U.Uh42, 

C  £>»  04  80, 

0. 0524, 

0.0556,  0.0580, 

0.0612, 

0,0648, 

0.0668/ 

CATA  f£TA<  9,J> 

, J=i ,15) / 

CO.  4909, 

0.  5380, 

0.6068,  0.6573, 

0.7078, 

0,7463, 

0.7776, 

0,0090, 

CO.  8191, 

0. 8302, 

0.8347,  0.8363, 

0.8322, 

0.6241, 

ft.  8090/ 

DATA  ( 

CNt  10 ,  J) 

,J~i»12>/ 

CO.  1872, 

0. 2814, 

0.3804,  0.4686, 

0.5626, 

0*6382, 

0.6892, 

C.7362, 

CO.  7696, 

0. 8068, 

0.8254,  0.8304/ 

CATA  C 

0H(1Q,J) 

, J=1 ,  12J  / 

CO.  0132, 

0. 0180, 

0.0228,  0.0268, 

0.0314, 

3.C352, 

0.0380, 

0.0412, 

CQ.  0440, 

0. 0476, 

0.0504,  0.0530/ 

OATA  (£T  A  ( 10  ,  J) 

,J=1,12;/ 

CO.  4257, 

0*  4747, 

0.5056,  0. 5359 , 

0.5683, 

0.5C-1  1, 

0*6  ‘63, 

0.6178, 

CO,  62 4 U, 

0. 6330, 

0.6265,  0.6113/ 

£N0 
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SECTION  VIII 
SAMPLE  INPUT  LISTING 

The  fi-st  section  of  data  cards  is  the  set  of  variables  selected  for 
output  (controlled  output).  The  second  section  is  the  Namelist  input  for 
running  the  desired  points.  The  Namelist  input  consists  of  the  following 
points:  design  point  <\t  sea-level  static,  a  setup  case  for  sea-level 
static  l fterburning,  a  sea-level  static  full  afterburning  point,  several 
points  in  a  subsonic  power  hook,  a  setup  case  for  supersonic  afterburning, 
and  the  supersonic  full  afterburning  point. 
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T~q 
f*5  5 
T?i* 

!>  O  ^ 

W  4  n 
W“Q 
WG24 
FAP?u 
T25 
P?5 
DDDUC 
ETAF 
AM2  c 
A  M  5S 
ETAF 
£T  AT 
ETA  r 
E  T  A  T  H  r 
ETA7IF 
E  T  A  T  L  r 


c>6 

PS  c 

A16 

Vo 

WGft 

T7 

WF  A 

FAS? 

ET  AA 
n°AcT 
DSP 
A  M  8 
Vfl 
PSq 
AMq 
v  q 

o^gp 

Air« 

V28 

PS?d 

AM?c 

v?q 

0Ycr,c 

H°6  XT 

WFT 

WGT 

VA 

FPP 

Cm;n? 

V  J  N 

C  VO  MO  7 

vjn 

FGP 

FOP 
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A55 

A?5 

A6 

AS 

A  9 

A2  5 

A29 

THEEMD 

$  OAT  AIM  inTL“  =  l,TnES=i,TO!)MP.=  i  »IAmtp=0,MOOE=3, 

IGA9  VY=?  ,  TM29=i  ,  n,  J»*<55r  «  ,0«) ,  V'£=n  ,  ?fi ,  unr  vt  =  h  , ,  MC^ci.  T-n , 

ITRYS=200.}TOLALL=.009,7F'3S  =  n.8333)ZTDS=0.^1i‘7,700S  =  0.  51A3, 

PCNFOS=10Q.  ,E1  4FDS=0.839,PCMIOS=100.  ,£TA1DS=0.  8 53  , PCNC R 5= 1 0 3 .  , 

ETACOS  =  0.d?3,  D-’CODS  =  0 . 0  h7 , 0-,')U0S=  0.  Ob,  OT?00S=1250 .  , ET A6CS=  0 . 93  75, 

P.RF9S  =  2.  2, "RIOS =3.  A?5,n~r2S=7.  15  ,  !•’  Ar9S=75  4  . ,  "A  IOS  =  i  0  0  .  , 

TrHD.0S=5  3.0,9NHPTS=?.Q,  ETH=>05  =  0  .3  51  ,TFIPOS=120.  ,  CNIOOS=  2.  ?  ,  ETI  3DS= .  3  31 , 
TFLPDS=130.  0»CML°D?=2«3  ,FTLPOS=  C.  917, OPAF9S=8 . 0  ,  CWNOZ  =  Q.  9  8 0 , 
OELFG=1.0,3£LFN=1.0,OELSFC=1.0,=Cnir=0.0,PCrLI=0.0,eC3LC=0.3, 

ThDS=2860. , Au*3  «  0 , ALT°=9. 03 
SLS  TRIS°L  DESIGN  POINT 
SOATAIN  MOD£=t),TA=2860.  ,ITITLF-1< 

SETUP  FOR  SLS  AFTECRURNTNG 

SOATAIN  T4=2861.,IACT3N=1,T7=3700.,ETAA=Q, 875, ITITL2=1« 

SLS  FULL  AFTERBURNING 

SOATAIN  M.0DI=3,PCNF  =  99.*  5,  AM=0.75,  ALTP=2590  0  ♦  ,  ITITJ.E-1* 

SUBSONIC  POWER  HOOK 
SOATAIN  oCNF=qQ.S 
SOATAIN  °CNF=8  0 • S 
SDATAIN  PCMF=70. ?  . 

* OAT  A  IN  MOOE  =  l  ,  °CNC~1  n<'  4  ,  AM  -  1  ,  0  .  A I  T°"[?  n  o  n  n  _  .TTr^c-jt 
S"  t  UP  (■  OR  9  JP "  HSOM  i i< >-  i  *•  k  -'J " N I ?ii j 
SOATAIN  cCNC=100.,IAFT3N=l,T7=3700«,rTAA=0« 55 , T7ITLE=1 * 

SUPERSONIC  FULL  AFTERBURNING 
SOATAIN  IEN0=13 


/ 
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SECTION  IX 


SAMPLE  OUTPUT  LISTING 

The  following  are  typical  computer  printouts,  the  first  point  is 
the.  design  point  and  includes  a  page  of  correction  (  or  scaling) 
factors  and  a  page  of  values  of  variables  in  common.  Ths  other 
operating  points  consist  of  a  page  of  output  for  each  point.  Not 
included  for  these  points  is  a  common  dump,  which  follows  each  output 
page  and  is  very  similar  to  the  common  dump  following  the  design  point 
correction  factors. 
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